INTEL CORPORATION 
3065 Bowers Avenue 
Santa Clara, California 95051 
(408) 987-8080 

iny 

Dear Customer: 

Enclosed is your Prompt-48 high speed upgrade kit. Installation of 
this kit will upgrade your Prompt-48 from 3MHZ clocking rate to 6MHZ. 

Please note that the 6MHZ version of Prompt-48 requires use of the 
standard 8748 or 8748-4 parts. Also the Prompt-48 firmware is clock 
rate dependent by design and therefore, the new 6MHZ firmware must be 
operated at 6MHZ only. If you still need to design at 3MHZ M NOT 
upgrade your Prompt-48 until you are ready to use the full speed parts. 

To install the upgrade kit: 

1) Check contents of kit with the attached Prompt-HS4 
packing check list. 

2) Remove power from Prompt-48 (turn off power and remove 
power cord). 

3) Remove Prompt-48 panel by removing the four (4) screws 
(see figure 1), and sliding the panel down and up. The 
printed circuit board is attached to the front panel. 

4) Remove the power harness plug (lower left corner of board) 
from the circuit board. 

5) Remove circuit board from front panel by removing the 
eleven mounting screws (see figure 1). 

6) Unsolder the 3MHZ crystal (see figure 2) and solder in the 
new 6MHZ crystal . 

7) Replace PROMs in sockets Al, A2, A3 and A4 with the new 
PROMs 52-783, 52-784, 52-785 and 52-786 respectively. 

8) Reassemble Prompt-48 in reverse order as above in steps 
2-5). 

Utilizing the 8748 and 8035 supplied with the kit, your upgraded Prompt-48 
will perform all of the previous functions, plus an enhanced set of access 
address codes. A greater variety of I/O and memory accessing combinations 
are now available. These enhanced access address codes are outlined in 
Appendix J of the revised user's manual included with this kit. Appendix J 
amends paragraph 5-14, page 5-6 of the user's manual for the upgraded 6MHZ 
version of Prompt-48. 

Best regards. 


Microcomputer System Division 
Intel Corporation 


9800584B 
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PROMPT HS4 PACKING CHECKLIST 


[ ] I.C., Intel 8748 

[ ] I.C., Intel 8035 

[ ] (4) 2708-type ROMs 

52-783, 52-784, 52-785, and 52-786 


[ ] 6 MHz Cr3rstal 

[ ] Proinpt-48 User's Manual (9800402) 

[ ] Proinpt-48 Reference Cardlet (9800404) 
[ ] Proittpt-48 Monitor Listing (9800583) 
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IS IS- 1 1 MCS-48/I3PI-41 MACRO ASSEOTLER, VZ.9 PACE 1 

PROriPT-48 SYSTEM MONITOR V3.0 6MHZ 

LOC OBJ SEa SOURCE STATEMEHT 

1 STITLE (^PROMrr-48 SYSTEM MONITOR V3.0 6MaZ’> 

3 ; 

4 5 IlfTELLEC/PROMPT-48 FIRi^R/ABE 

5 ; VEP^ION 3.0 

6 ; 1 FEB 1977 

r ; 

. 9 ; 

10 ; CC) 1976,1977 INTEL CORPORATION. 

11 ; ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM OR PUBLICATION 

12 ? MAY BE REPRODUCED, TRANSMITTED, TRANSCRIBED, STORED IN 

13 j A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY LANGUAGE OR COMPUTER 

14 ; LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 

15 ; MAGNETIC, OPTICAL, CHEMICAL, ^lANUAL OR OTHERWISE, WITHOUT 

16 j THE PRIOR WRITTEN PERMISSION OF INTEL CORPORATION, 

17 ,• 3063 BOWERS AVENUE. SAITTA CLARA, CALIFORNIA 95051. 
la ; 

20 ; 

21 ; 

22 ; 

23 ; 

24 ; 

25 ; 

26 ; 

27 ; 

28 ; 

29 ; 

30 ; 

31 ; 

32 ; 

33 ; 

34 ; 

35 ; 

36 ; 

37 ; 

38 ; 

39 ;<addr> : s«<ttil>I>le><iiibble><iiil>l>le> 

40 ;<byte> ? 5 *<Hiibble>< ni3>ble> 

41 ;<value> : : *<n.il>b le !byte !addr> 

42 ;<iiibble> : J *< heac-di^i t> 

43 ;<hexr-dis-it> : :*<0? 1 !2!3T4!5!6 !7!8!9 !A!B?CIDTE!F> 

44 * 

45 iP2-MAP COMMAND SYMBOL “P2" 

46 ; <p2 map— conanaiid> : 5 =2< p2 map-c lause> 

47 ; <p2 map-c lause>::=< <byte> !<NElCrTESE>> 

48 • 

49 i PROGRAM-PROM COMMAND SYMBOL "Pr 8755", "Pr 8741" 

50 ; <prosrz*am prora-coiiimattd> J ? ®3< progrram pronp-c laiiar«> 

51 ; <progfram pront-c laiise> : s = < from-addrXNEXTIENDX io-addr><<EX 

E>f 

52 ; <NEXT><proBr-addr><NEOTTEXE>> 

53 ; 

54 ; BYTE SEARCH COMMAND SYMBOL "S<1,X> X;:=<Ptr?d>" 

55 ; <byte search,— coinmaad> J 5 =4< type— opt ioaXsearcb—c laTiae> 

56 ; * <byte search-c laase> ::»< from-addr>< NEXT! ENDX to-addr>< NEXT 
rEND> 

57 ; <for-clause> 

58 ; < type-op tion>::=<PROGTIlEG!DATA> 

59 ; <for-clause>; :-<<byte><EXE>> t< < byteX NEXTX mashX NEXT!EXE> 

> 

60 ; < masis> 5 ? byte> 

61; 

62 ;WORD SEARCH COMMAND SYMBOL "S<2,S> X: :=^<P!r ?d> “ 

63 ; <word search— command> -5< type— opt ioa>< searcbrc la'ase> 

64 ; <vord search— c lause> t i -< froar-addr>< NEXr!END> < to— addrXNEXT 

!END> 

65 I 


GO 

EXA / MOD 

N/BK ? PROG 

SS ! REG 

V/BK r DATA 

CLEAR ? PREV i 
ENTRY t 

ITEXr 

EXE / EHD . 


< f or— c lause> 
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FACE 


2 


LOC OBJ 




SOTOCE STATEmrr 


< typ^^opt ioii> : • «< PROC?BEGtBATA> 

< f or-c laTiae> : s «< < l>Tte> < rfEST> < 2>Tta> < jnOTt|lSE> > ?< < hrtmX NEXT 


66 
.67 

68 

69 

70 

71 

72 

73 

74 

75 jFBOGRAiarPROM COMPIATO SYMBOL 


5 <byte><imT><ijasB;><RiOT><inaaA><HiOT 

; <maak> : :«<l>yte> 

5 HEX-ARITHMETIC COMMAND SYMBOL "HE* 

; <bax ar 1 thnat ic-comiaaiid> t s s6<iLex ari timta t ic— e laiuie> 

; <lxax aritluaa tic-clau»a> J 5«< valuaX NEXTIENDXvaluaXNEXrtEX 

E> 


76 

77 


E> ! 


<pro^am pvomrcioaxmnd> 
< pro^ara proiarc laixaa> i 


78 

79 I 

80 
81 
82 


E>? 


83 

84 

as 

86 

87 

88 

89 

90 

91 

92 

93 

94 


“Pr 8748" 

:-7<progpram pram-c laiasa> 

-< f rocr-addrX NEXrtEND> < to-addr>< < EX 

< NEXT> < proraddr > < NEXrrEXE> > 

"Co » 

s*8< compare proor-c latxsa> 

<coxapare proar*c lai23e> J :*< fronr-addrXNElCTTENDX to— addrX<EX 

< NEXT> < proiir-addr> < NEXr?EXE> > 


;COMPAB£-PROM COMMAND SYMBOL 
< compare pronr^oinjiiaiid> ! 


; MOVE-MEMORY COMMAND SYMBOL "ib<X> X::«<P!r!d>" 

; <mo’va memory— coiaiaand> 5 s *9< type— op t ionX mo^a memory— c I axiae> 

<move memory— c laus a > *• : «< from-addrX NEXTIENDX to-addrXNEXT 


!ENB> 

? 


< daa t-addr> < NEXr?EXE> 
< typa-option> : :a<PROG?REG?DATA> 


; ACCESS COMflAND SYMBOL "Ac" 

; <accaas-coininaad> 5 J=A<accass-c laiiae> 

; <acceaa-c lauaa> t : «<<liyte> t< NEXr!EXE>> 


? 


95 ; BREAKPOINT COMMAND 


SYMBOL "br* 


I 

s 

REV>> f , 


<breakpo izLt— comiiiaad> 5 5«B< breakpo lat-c lat»a> 

<breakpo lat-c lattsa> •• : *< idfall><<EXE> !< NEXD< < addr> KNEXTIP 


<ld>::*<ail>l>la> 

<all>::»<EXE> 


96 

97 

98 

99 
100 
101 

102 ;CLEAR-MEMORY COMMAND 

103 ; 
e> 

104 $ 

< trpa-optioii>::a<PROG!REG?DATA> 


. . • T<<addr> ?<NEXrtPR£V>>XEXE> 


1 


SYMBOL *C<X> 


X: :Xp!r?d>* 


< clear memory— comiaaiid> s s^CC type— opt lonX clear memory— c laxta 
< clear mataory-c Iaaae> s fro mraddrX NEXT! ETfDX to— addrXNEX 


105 

106 


; 


107 ?DUMP COMMAND SYMBOL "d<X> 


X::»<PTr!d>" 


108 

109 

U0 

HI 


< damp— comiBaad> 5 ; sD< type— opt ionX damp— c laafie> 

.<daiap— c laiise> : :*< fromraddrX NEXTfENDX to-addrX NEXr?EXE> 

< typa-opt ioxi> i s -< PROG t REG? DATA> 


112 ; ENTER COMMAND SYMBOL "r<X> X::«<P!r!d>“ 

113 ; <anter— conimaad> 5 s»E< type— opt lonX aatax— c la\isa> 

114 ; . <aatar— claasa> 5 :«<biasXNEXr?EXE> 

115 ; < type-optioa>t:*<PROG?REGrDATA> 

116 ? <bia«> s J s<addr> 

117 ; 

118 ; FETCH-PROM COMMAND SYMBOL "PP" 

< fetch promr-coimnaad> : :=F< fa tch proia-claaae> 

< fetch promrc laasa> : *:=< fromraddrX NEXTtENDX to— addrX < EXE> 


119 

120 


t 


< NEXr> < proar-addr> < NEXr!EXE> > 


121 ; 

122 ; 

123 ? GO COMMAND SYJIBOL "G< X> X: : =< o ?b !S> " 

< GO— coinaand> : : -G0< typa-opt ioa>< GO— c laase> 

< GO-c laase> : : < addr> ?< NEXrTEXE> > 

< type— opt ion> s : *< 


124 5 

125 ; 

126 ; 

127 ; 

128 ; EXAMINE COMMAND SYMBOL “E<X> X::-<?!r!d>" 

129 ; <examiae-coinmaiid> : :=EX< type— opt ioiiXexami»e—claase> 
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mm 3 


LOG OBJ 


SEd SOOEGE STATEMEUT 

130 ; <e3KiBiitte-clause> t :»<a4dr><irEXr?EHE><<<l>Tt«> t< IfESTTPlEl^> ! 


131 ; . . • !<<2>rte> ?<Hi:ET!PREV>>><Ero> 

132 ; < type-op tioii> ::»< PROG? REG fDATA> 

133 ; 

133 i 

136 ; IirrEIJEGXPRDMPT SYSTEM COKSTAITTS 

137 ; 

138 ?a25l TJSAICr SYSTEM GONSTAITIS 
130 ;iaiODE IRSTKECTIOCr DEFINITIOrfS 
140 ; 


0003 

141 

H64X 

EdU 

0000001 IB 

;64 X BAUD RATE 

0002 

142 

R16X . 

EdU 

000000 10B 

; 16 X BAUD RATE 

0001 

143 

RIX 

EdU 

0000000 IB 

; 1 X BAUD RATE 

0000 

144 

SYNC 

EdU 

00O00O0OB 

?SYNC MODE 

000C 

145 

CL8 

EdU 

00001100B 

; CHARACTER LENGTH ^ 3 

0008 

146 

CL7 

EdU 

00O01000B 

? CHARACTER LENGTH » 7 

0004 

147 

CL6 

EdU 

00000 100B 

; CHARACTER LENGTH =» 6 

0000 

148 

CL5 

EdU 

00000000B 

;CHARACTER LENGTH » 5 

0010 

149 

PEirB 

EdU 

0001O00OB 

; PARITY ENABLE 

0020 

150 

PEVEN 

EdU 

00100000B 

;EVEN PARITY 

00G0 

151 

ST2 

EdU 

1 1O00000B 

;2 STOP BITS 

0080 

152 

ST15 

EdU 

10000000B 

;1.5 STOP BITS 

0040 

153 

STl 

EdU 

010000008 

;1 STOP BIT 


154 

? 


* 



155 

? COMMAND INSTRUCTION DEFINITIONS 


156 

♦ 




0001 

157 

TEEN 

EdU 

0000000 IB 

; TRANSMIT ENABLE 

0002 

158 

DTR 

EdU 

000000 10B 

;DATA TERMINAL READY 

0004 

159 

BXEN 

EdU 

00000 100B 

; RECEIVE ENABLE 

0008 

160 

SBCH 

EdU 

00001000B 

;SEND BREAK CHARACTER 

0010 

161 

CLERR 

EdU 

00010000B 

; CLEAR ERROR 

0020 

162 

RTS 

EdU 

0010000OB 

jREdUEST TO SEND 

0040 

163 

USBST 

EdU 

01000000B 

;USART RESET 

0080 

164 

ENHM 

EdU 

10000000B 

tenable HUNT MODE 


165 






166 

5 STATUS 

BIT 

DEFINITIONS 



167 

? 




0001 

168 

TRDY 

EdU 

0000000 IB 

; TRANSMIT READY 

0002 

169 

RBDY 

EdU 

000000 10B 

? RECEIVE BUFFER HEADY 

0004 

170 

TXBE 

EdU 

00000 100B 

? TRANSMIT BUFFER EMPTY 

0008 

171 

RPAR 

EdU 

00001000B 

; RECEIVE PARITY ERROR 

0010 

172 

ROV 

EdU 

00010000B 

{RECEIVE OVERRUN ERROR 

0020 

173 

RFR 

EdU 

00100000B 

{RECEIVE FRAMING ERROR 

0040 

174 

SYND 

EdU 

01000000B 

{SYNC DETECTED 

0080 

175 

DSR 

EdU 

10000000E 

{DATA SET READY 


176 

• 

t 





177 






178 

t 





179 

5 CONSOLE/TAPE READER COIHROLS 


180 

f 




00CF 

181 

MODE 

EdU 

ST2 OR CLa 

OR l^4X 


182 

jUSABT MODE 

INITIALIZATION 

WORD 

0025 

183 

COMD 

EdU 

BXEN OR THEN OR RTS 


184 ;USAaT COMMAND WORD INITIALIZATION 
0027 185 TADV EOTT DTR OR COMD ?TAPE ADVANCE 

186 ; 

187 ;a255 PPI SYSTEM CONSTANTS 

188 {MODE INSTRUCTION DEFINITIONS 



189 

{ 





0001 

190 

PCIL 

EdU 

e^eeoeoiB 

tPORT C( LOWER) - 

INPUT 

0002 

191 

FBI 

EdU 

eeeoe^ioB 

{PORT B - INPUT 


0004 

192 

GBMl 

EdU 

00060 lOOB 

{GROUP B mode 1 


0008 

193 

PCUI 

EdU 

OOOOIOOOB 

{PORT CC UPPER) - 

INPUT 

0010 

194 

PAI 

EdU 

oeoiooooB 

{PORT A - INPUT 


0020 

195 

GAMl 

EdU 

ooioooeoB 

{GROUP A MODE 1 


0040 

196 

GAM2 

EdU 

oioeooooB 

{GROUP A MODE 2 


0080 

197 

ACTM 

EdU 

looeooooB 

{ACTIVE MODE 


00E0 

198 

PPIMD 

EdU 

ACTM OR GAn2 OR GAMl ;FPI M)DE WORD 

0043 

199 

PPICT 

EdU 

43H ;PPI MEM MAPPED I/O 

CONTROL PORT 


200 ; 
201 ; 



isis-ii i!cs-4a/i3pi-4i mcm Assamusu vz.^ 
piioMrr-48 srsrm mmroB, vz.o ^wa 


PACT 


4 


LOG 

dOOB 


0609 


OBJ 


SEa 


SOURCE STATEMECrr 


202 

sMEHDKY MAPPED I/O PORT DEFIITITIORS 

203 

t 



204 

MCHST 

Ban 0BH ; 

MACHIRE STATUS 

205 

; IUPDT: 



206 

:BO 

+piu)m: ek 


207 

?Bl 

-8755 


208 

;B2 

-MOB ElSrmY 


209 

;B3 



210 

5B4 



211 

:B5 

/ 


212 

;B6 



213 

5B7 

+0RiEirr OK 


214 

? OUTPUT 



215 

;B0 

PROM Eir 


216 

;fll 

USER ACCESS 


217 

;B2 

-OUTEX 

• 

218 

;B3 

VR MEM 


219 

;B4 

-P0WR 


220 

;B5 

REIfTER 


221 

;B6 

-RUB 


222 

;B7 

EXT MEM 


223 


:|t- 3l5— 5i:— 3*s—:^6 


224 

* 



225 

KBDAT 

EQU 09H ? 

KEY BOARD DATA 

226 

5 PORT 2 

MAP 


227 

IRPUT: 



228 

;B0 

KEYBOABB IBCODED 

DATA (0) 

229 

;B1 

KEYBOARB IBCODEB 

D ATA ( 1) 

230 

;B2 

KEYBOARD IBCODEB 

DATA (2) 

231 

;B3 

KEYBOARD RO¥ 0 


232 

;B4 

KEYBOARD ROW 1 


233 

;B5 

KEYBOARD ROW 2 


234 

;B6 



235 

;B7 



236 

; 



237 

;KEy 

KEYBOARD 

ERGODED 

238 

i PRESSEB VALUE 

VALUE 

239 

;0 

10H 

0H 

240 

; 1 

IIH 

IH 

241 

;2 

12H 

2H 

242 

;3 

13H 

3H 

243 

; 4 

14fl 

4M 

244 

;5 

I5H 

5H 

245 

• 6 

16H 

6H 

246 

;7 

17H 

7H 

247 

;d 

08H 

8E 

248 


09H 

9H 

249 

; A 

0AH 

AH 

250 

;B 

0BH 

BE 

251 

;C 

0CH 

CH 

252 

;B 

0DH 

DH 

253 

;£ 

0EH 

EH 

254 

;F 

0FH 

FH 


255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 


iPBEYIOGS 

;PROG 

;DATA 

$B£G 

?EX 

;GO 

?rrExr 

• execxjte 


20H 

21H 

22H 

23H 

24H 

25H 

26H 

27H 


;OcrTPTrr: 

;B0 PORT 2 

;B1 PORT 2 

;B2 PORT 2 

;B3 PORT 2 

$B4 
5B5 
;B6 
;B7 

• JR— :|e— 4 c 


BIT 0 MAP <1 
BIT 1 MAP (1 
BIT 2 MAP 
BIT 3 MAP 


( 1 
( 1 


i0H 

IIH 

12H 

I3H 

14H 

15H 

16H 

ITH 


iiTPUT,0 s ooTPtrn 
IOTOT,0 = ODTPim 
IirPTJT^O s OBTTTTD 

ii?ptrr ,0 = OUTPUT) 
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LOG OBJ 

SEa 


SOURCE STA'IEMEDT 


0004 

275 

lomEn 

zav 

0AH t EX MEMORY HARDWARE SWITCH 

0008 

276 

P0LIB 

ZQXJ 

08H 

PORT 0 LATCH IlfPUT 

0010 

277 

OGOPT 

zau 

10H 

DISPLAY DIGIT 0 

0011 

278 

OGIPT 

EQU 

IIH 

DISPLAY DIGIT 1 

0012 

279 

DG2PT 

Eau 

12H 

DISPLAY DIGIT 2 

0013 

280 

0G3PT 

EQU 

13H 

DISPLAY DIGIT 3 

0014 

281 

I)G4PT 

£au 

14H 

DISPLAY DIGIT 4 

0013 

282 

DG5PT 

EQtl 

13H 

DISPLAY DIGIT 3 

0016 

283 

DG6PT 

Eau 

16H 

DISPLAY DIGIT 6 

0017 

284 

0G7PT 

Eau 

17H 

DISPLAY DIGIT 7 

0020 

28S 

ns ADA 

Eau 

20H 

USART DATA 

0021 

286 

USACT 

Eau 

21H 

DSART CONTROL 


287 





288 

* 




0040 . 

289 

PPIPA 

Eau 

40H * ;DUT DATA BUS BIDIRECTIONAL 

0041 

290 

PPIPB . 

Eau 

41H 

;DUT AND PROGRAM CONTROL 


291 

5 OUTPUT: 




292 

?B0 

.P2(0) ADORESS 



293 

;B1 

P2(l) ADDRESS 



294 

;B2 

TO 




295 

;B3 

RST 




296 

;64 

VOO (0S 

5V. 1»HI V) 


297 

$63 

EA <0*0V, 1=HI V> 



298 

$B6 

PROG (0 

= 0V, 1»HI V> 


299 

;B7 

ORiEirr 

(TEST*!) 



300 

f 




0042 

301 

PPIPC 

Eau 

42H 

{PROGRAMMER CONTROL AND STATUS 


302 

• OinPTJT: 




303 

;B0 

AGE GTL 



304 

?B1 

OUT DATA EITABLE 



303 

;B2 

ADOR HI 




306 

$B3 





307 

;B4-B7 

STATUS 




308 





309 

; 




00F0 

310 

WSKPG 

Eau 

OFOH 

MASK FOR P2 PAGING 

0008 

311 

MEIOU 

Eau 

OSH 

JIEMORY IMAPPED I/O UPPER BYTE 

0000 

312 

MEPGO 

Eau 

OH 

DATA MEMORY PAGE 0 

0001 

313 

MEPGl 

Eau 

IH 

DATA MEMORY PAGE 1 

0002 

314 

21EPG2 

EQU 

2H 

DATA MEMORY PAGE 2 

0003 

315 

I3EPG3 

Eau 

3H jDATA MEMORY PAGE 3 

0004 

316 

MEPG4 

Eau 

4H 

DATA MEMORY PAGE 4 

0003 

317 

HEPGS 

Eau 

5H 

DATA MEMORY PAGE 5 

0006 

318 

ISEPG6 

Eau 

6H 

DATA MEMORY PAGE 6 

0007 

319 

MEPG7 

Eau 

7H 

DATA MEMORY PAGE 7 


320 



:#e 



321 

$ 





322 

;EXTEB5AL RAM MEMORY POIRTERS 


323 

? 




0080 

324 

RGP7R 

) 

RGTOP 

Eau 

128 

t REGISTER TABLE POINTER CRB - RSFH 

0OBF 

325 

EQU 

RGPTU4-3FH 


326 

iRGTOP+1 


< A^TIMER^PSV, PCL, P€H> 

00G3 

327 

lOPTR 

EQU 

BGPTa+45H ; I/O TABLE POIinER<P0, PI. P2,P3> 


328 



jP3 BlTO*T0.Bm»Tl,BlT2=MBARK,BITO=EXEI 


329 



: BIT4»EXEIlESTmC, BIT3*Tr , BIT6aTRlirr,BIT?aCI(TR 

0OC9 

330 

BKPTR 

Eau 

I0PTR+4H 

{BREAK POINT TBL POINTER *B0-7 EACH 



TTO BYTE 



OOD9 

331 

AXPTR 

Eau 

BXPTO+16 

{ACCESS STATUS 

0ODA. 

332 

RRPTR 

Eau 

AXPTR4*! 

{MON FLAG FOR RUN REAL TIME 

0ODB 

333 

P2PTR 

Eau 

F3TPTR+1 

{P2 MAP 

0ODC 

334 

MOimT 

EQU 

P2PTRr*-l 

{POINTER FOR BREAK ROUTINE JMP TBL 

OOOD 

333 

ASPTR 

EQU 

MONRT+l 

{I/O ASSIGNMENT FLAG 

00G4 

336 

RGMAX 

EQU 

IOPTR-1 


0OC3 

337 

lOMAX 

EQU 

BXPTR-1 


0008 

338 

BXriAX 

EQU 

AXPTR~1 


0009 

339 

A2SIAX 

EQU 

AXPTR 


O0DB 

340 

P2PmX 

EQU 

P2PTR 


0000 

341 

ASMAX 

EQU 

ASPTR 


0OFF 

342 

TmiAx 

EQU 

0FFH 



343 





344 

? 





345 

. ihtebital ram lamjRy poimxhs 



ISIS- 1 1 IK:S-48/'UPI-4X mCBO i^SEMBLEE, V2.e 
PROIIPT-48 SratEM MONITOR V3.0 6I1HZ 


PAGE 
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LOG OBJ 

SEa 


SOURGE STATEMEirr 





346 







003F 

347 

IMTOP 

EOU 

3FH 



INTERNAL MEMORY TOP 

0038 

348 

0IPTR 

EOU 

388 



DISPLAY BUFFER POINTER 

0037 

349 

0ICNT 

mv 

DIPTR-1 



DISPLAY REFRESH COUNT 

0036 

350 

DPWSK 

mo 

DIGNT-1 



DISPLAY DECIMAL POINT MASK 

0035 

351 

XJPLMH 

Eau 

DPMSK-1 



UPPER LIMIT ADDRESS HIGH 

0034 

352 

UPLML 

EOU 

UPLMH-1 



UPPER LIMIT ADDRESS LOW 

0033 

353 

WHKH 

Eau 

UPLML- I 



WORKING ADDRESS HIGH 

0032 

354 

VRKL 

Eau 

VRKH-1 



WORKING ADDRESS LOW 

0031 

355 

VRKIH 

Eau 

WRKL-1 



WORKING ADDRESS HI 

0030 

356 

TOKIL 

Eau 

WRXlH-1 



WORKING ADDRESS LOW 

002F 

357 

VRK2H 

Eau 

VRKlL-1 



WORKING ADDRESS HI 

002E 

358 

WRK2L 

Eau 

VRK2Hrl 



WORKING ADDRESS LOW 

002D 

359 

VRK3H 

Eau 

. raK2L-l 



WORKING ADDRESS HI 

002C 

360 

I^RKSL 

Eau 

raK3H-l 



WORKING ADDRESS LOW 

0025 

361 

BASER 

Eau 

WRK3L-1 




002A * 

362 

BASEL 

Eau 

BASER- 1 




0029 

363 

EMODE 

Eau 

BASEL- 1 



SOFTWARE MODE CONTROL 

0028 

364 

BIASH 

Eau 

ERODE- 1 



BIAS ADDRESS HI FOR READ 

0027 

365 

BIASL 

Eau 

BIASH-1 



BIAS ADDRESS LOW FOR READ 

0026 

366 

CKSUH 

Eau 

BIASL-l 



CHECK SUM FOR READ AND IVRITE 

0025 

367 

PRBYTE 

Eau 

CKSUM-1 



PROMPT CHAR FOR SERIAL I/O 

0020 

368 

iriBOT 

Eau 

20H 



INTERNAL MEMORY BOTTOM 


369 







370 

; 







371 

{MODE FLAG VALUES FOR DATA PROCESSING 


372 

« 






0000 

373 

IIEIQID 

Eau 

0 


' 

E/M MEMORY MODE 

00FF 

374 

REGMD 

Eau 

I 

1 

)FFH) ;E/M REG MODE 


375 

1 

1 

I 




376 

? 





" 


377 

;COroiTIONAL 

ASSEMBLY SWITCHES 




378 

? 






0000 

379 

FALSE 

Eau 

0 




00FF 

380 

TRUE 

Eau 

((NOT FALSE) AND 

0FFH) 


381 

♦ 







382 

; GLOBAL 

DEFINITIONS 





383 

• 

f 






0000 

384 

CR 

Eau 

0DH 

; ASCII 

VALUE OF CARRIAGE RETURN 

000A 

385 

LF 

Eau 

0AH 

;ASCn 

VALUE OF LINE FEED 


386 ; 

387 ; . A 

386 ; • . . • « 

389 ; F . . B 

390 ; • G . 

391? 

392 ? E * . G 

393 ? 

394 ? 

395 ; D 


397 



398 ; 


.GFEDCBA 



399 ; 




00CO 

400 DC0 

EQU 

11000000B 1 

►*0* 

00F9 

401 DCl 

Eau 

1U11001B . 1 


00A4 

402 DC2 

Eau 

leiooieoB ! 

♦2* 

00B0 

403 DC3 

Eau 

101100003 ; 

*3’ 

0099 

404 DC4 

Eau 

100 1100 IB ; 

’4* 

0092 

405 DG5 

Eau 

1001O010B ! 

»5* 

0082 

406 DC6 

Eau 

100000 10B ; 

*6’ 

0OF8 

407 DC7 

Eau 

1 1 1 1 1O00B i 

’7’ 

0080 

408 DCS 

Eau 

10O000OO& 

♦3’ 

0096 

409 DC9 

Eau 

1OO1I000B 


0088 

410 DCA 

Eau 

100010008 

’A’ 

0083 

411 DCB 

Eau 

1000001 IB 

’B’ 

0eC6 

412 DGC 

Eau 

110001108 

’C’ 

00A1 

413 DGD 

Eau 

10 10000 IB 

’D’ 

0086 

414 DCE 

Eau 

100001 lOB 

’E’ 

008E 

415 DCF 

Eau 

1OO0I11OB 

♦ 

0OC2 

416 DCG 

Eau 

11 00001 OB 

’G’ 

000E 

417 DOES 

Eau 

O000111OB 

*ESC 

00FF 

418 DCBL 

Eau 

11 nil MB 

♦ » 




T 


ISIS- 1 1 iK:s-4s/tjpi-4t mmo assebbler, V 2.0 tags. 

PROMPT-48 SYSTEM MOIfITOR. V3.e 6MHZ 

LOC OBJ SEO SOURCE STATEMErTT 


007F 


419 

DCP 

EOU 

OlllllllB 

• ’ . * 

00 c 1 


420 

BCU 

EOU 

110000018 

? ’U’ 

0OC7 


421 

DCL 

Eau 

110001118 

5 ’L’ 

0089 


422 

DCH 

EOU 

100010018 

{ ’H’ 

008G 


423 

DCPC 

Eau 

100011008 

; ’P’ 

00A7 


424 

DCLCC 

Eau 

101001118 

; ’LCC" 

00AB 


425 

DCLCM 

Eau 

101010118 

; ’LCM» 

00A3 


426 

DCLCO 

Eau 

101000118 

;*LCO* 

00E3 


427 

BCLCU 

EOU 

111000118 

; ’LCU* 

00AF 


428 

DCLCR 

Eau 

101011118 

; ’LCR’ 

0OBF 


429 

BCDSH 

Eau 

101111118 

; 

00B7 


430 

BCEO 

Eau 

101101118 




431 



* 




432 

5 ENCODED KEYBOARD CHAR VALUES 




433 

? 




0000 


434 

D8748 


EQU 0 


0001 


435 

D8741 


Eau 1 


0002 


436 

D8755 


EQU 2 


0016 


437 

NEXT 


Eau 16H 


0017 


433 

EXECUTE 

Eau 17H 


0010 


439 

PREV 


Eau lOH 


0011 


440 

PRGKV 


Eau 1 IH 


0013 


441 

REGKY 


Eau 13H 


0012 


442 

DATKY 


Eau 12H 




443 






444 

» 






445 

? BEGIN 

PROGRAM 





446 

> 




0000 


447 


SY3MHZ 

SET FALSE 


0000 


448 


PAGEl 

SET FALSE 

. 



449 





0000 

15 

450 


DIS 

I 


0001 

240B 

451 


JMP 

INIT 

? INITIALIZE SYSTEM MEM AND I/O 



452 







453 

; EXTERNAL INTERRUPT VECTOR 




454 





0003 

A4C1 

455 


JMP 

REFSH 

;G0 TO DISPLAY REFRESH DRIVER 

0007 


456 


ORG 

7H 


0007 

A4C1 

457 


JMP 

REFSH 




458 

SAME02 






459 

UBK3 • 




0009 

449C 

460 


JMP 

RETGO 


oeoB 

449C 

461 


JMP 

RETSS 


00 OD 

44A4 

462 


JMP 

RETGS 


000F 

00 

463 


DB 

0 




464 







465 

? ENTRY POINT FROM USER PROGRAM 




466 





0010 


467 


ORG 

10H 




468 

BREAK: 




0010 

33 

469 


DIS 

TCNTI 




470 







471 

;SAVE 

PROGRAM COUNTER ON STACK 




472 





0011 

1413 

473 


CALL 

SAVPC 

;<PC s PC+3> 



474 

SAVPC: 






475 







476 

{SAVE 

REG CONTENT IR TEMP LOCATIONS IN EXT BAM 



477 





0013 

C5 

478 


SEL 

RB0 


0014 

90 

479 


MOVE 

@R0,A 

;<A> 

0015 

42 

480 


MOV 

A,T 


0016 

90 

481 


MOVE 

@R0,A 

;<TIMER> 

0017 

F9 

482 


MOV 

A,R1 


0018 

90 

483 


MOVX 

@R0,A 

;<R1> 

0019 

FS 

484 


MOV 

A,R0 


001 A 

90 

485 


MOVX 

@R0,A 

?<R0> 

00 IB 


486 

R0TMP 

Eau 

S AND 0FFE 

;TEOT STORAGE USED DURING BREAK 

00 IB 

0A 

487 


IN 

A,P2 


001G 

90 

483 


MOVX 

@il0, A 

{<P2> 


489 

490 ?SET UP FOR KEG TABLE EimUES 

491 ;ROPS ARE TO MOVE THE MEM BANS CHECK COBE OUT 



isis-ii iH»- 48 /T 7 ri- 4 i h&cbo Assemusu v2.o page a 


PR0MPT-4a srsrm moititoe vs- o 6mz 


LOC 

OBJ 

SEE 


SODHCE STATEHEUT 



492 

;0F TBE AREA 

WHERE PROGRAM ADDRESS ABE FORCED. 



493 




ww 

00 

494 


NOP 


&01E 

00 

495 


NOP 


00 IF 

00 

496 


NOP 


0020 

00 

497 


NOP 


0021 

27 

498 


CIR 

A ; MEM BANE 0 SELECTED 

0022 

0428 

499 


JTSP 

MBIRT 



500 






501 

sALIQUf 

CKHB AT AN A00RESS COBRESPONBING TO GXMB IN MBl 



502 




0024 

00 

503 


NOP 


00251 

00 

504 


NOP 




505 

CQQ3: 



0026 

27 

506 


CLR 

A 

0027 

83 

507 


BET 




508 

MBIHT: 



0028 

9AF0 

509 


ANL 

P2,^MSEPG 

0O2A 

3A01 

510 


ORL 

P2,^MEPG1 

002C 

B8C8 

511 


MOV 

R0,^I0P'ni43 



512 






513 

?B0IL0 

P3 CONTENT IN <A> BO-TO^Bls^Tl 



514 




002F 

4320 

515 


OBL 

A,^0H 

0030 

1634 

516 


JTF 

TFI 

0032 

530F 

517 


ANL 

A*^ODFH 



518 

TFI: 



0034 

2638 

519 


JHTO 

NTO 

0036 

4301 

.520 


ORL- 




521 

mro: 


0038 

463C 

522 


JNTl 

urn 

0O3A 

4302 

.523 


ORL 

A,^ 



524 

IfTl: 



0O3C 

A9 

525 


MOV 

R1,A 

0030 

80 

526 


MOVE 

A.ORO 

0O3E 

5380 

527 


ANL 

A,^80H 

0040 

49 

528 


ORL 

A,R1 

0041 

90 

529 


MOVE 

OR0,A ;<P3> 



530 






531 

;SET POIirrEBS 

FOR SAVING INT REGS 



532 




0042 

BSBF 

533 


MOV 

RO,#RGTOP 

0044 

B93F 

534 


MOV 

Rl,#IMrOP 



535 

UBKi: 



0046 

FI 

536 


MOV 

A,«R1 

0047 

90 

537 


MOVE 

OHO, A 

0048 

ca 

538 


DEC 

HO 

0049 

E946 

539 


0JNZ 

Rl.UBKl ?SAVE INTERNAL REGISTERS 



540 






541 

• get REG COIfTEIfT FORH TEHP HAH LOC AIO SAVE IB BEG TBL 



542 




0048 

B91B 

543 


MOV 

R1 , #ROTMP 

0040 

81 

544 


MOVE 

A,0R1 

004E 

90 

545 


MOVE 

;<R0> 

0O4F 

C9 

546 


0EC 

R1 

0050 

C9 

547 


0EC 

R1 

0051 

18 

548 


INC 

RO 

0052 

81 

549 


MOVE 

A, ORl 

0053 

90 

550 


MOVE 

OR0,A ;<R1> 

0054 

B8CX 

551 


MOV 

R0,#RGT0P+2 

0056 

BF92 

552 


MOV 

R7,^ 



553 

IXBK2: 



0058 

C9 

554 


DEC 

R1 

0059 

C9 

355 


dec 

R1 

0O5A 

31 

536 


MOVE 

A, OKI 

0O5B 

90 

557 


MOVE 

QRO,A ;< TIMER, A> 

0O5C 

Cd 

558 


DEC 

RO 

0050 

EF58 

359 


0JNZ 

R7,UBS2 

0O5F 

B910 

560 


• MOV 

Rl^^ROTMP-f-a 

0061 

BSG7 

56 1 


MOV 

R0,#I0PTR-i-2 

0063 

31 

562 


MOVE 

A, mi 

0064 

90 

563 


MOVE 

ORO,A ?<P2> 

0065 

ca 

564 


DEC 

RO 


PAGE 
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IS IS- I : 
PROMPT- 

LOG 


0066 

0067 


0068 

0069 

006B 

006G 

0061) 

006E 

006F 

0071 

0073 

0075 

0077 

0078 
007A 
007C 


0070 

007E 

007F 

0081 

0083 

0085 

0087 


0088 

0089 

O08A 

O08B 

008C 


O08E 

0090 

0092 

0093 

0094 

0095 

0096 

0097 

0098 
O09A 
009G 
O09D 
O09E 
009 F 
O0AO 
0OA1 
O0A3 

O0A5 

00A6 

O0A3 

09AA 

O0AB 

GOAC 

OOAO 


[ MCS-48/BP1-41 MACRO ASSiZIBLER* V2.0 
•48 SYSTEM MONITOR ¥3.0 6MBK 


OBJ 


sza 


S0inW3E"STATEM£lT^. 



565 

566 

;GET PI 

VAL AND 

SAVE IN TBL 

09 

567 

568 


IN 

A,P1 

90 

569 


MOVX 

0RO,A 


570 

571 

;CK IF 

USER IS SERVICING AN 


572 

; IF USER EXT INTERRUPTS ARE 


573 

{ENABLE 

REFRESH 

INTERRUPTS 

27 

374 

575 


CLR 

A 

8837 

376 


MOV 

RO,#DICNT 

AO 

577 


MOV 

®RO,A 

D5 

578 


SEL 

RBI 

AF 

579 


mv 

R7,A 

C5 

580 


SEL 

RBO 

B808 

581 


MOV 

R0,#P0LIN 

9AI?'0 

582 


ANL 

P2,#1^ICPG 

8A08 

383 


ORL 

P2,^I^IEI0U 

23FF 

584 


MOV 

A.^TRUE 

90 

585 


MOVX 

ORO,A 

9AF0 

586 


ANL 

P2.#MSKPG 

8A01 

587 


ORL 

P2,^MEPG1 

D5 

588 


SEL 

RBI 


589 

590 

;R7 « FF a NOT NESTED BUT El 

FF 

591 

592 


MOV 

A,R7 

C5 

593 


SEL 

RBO 

B908 

594 


MOV 

R1 , #8H 

9697 

595 


JNZ 

UBK9 

2318 

596 


MOV 

A,^1CH 

14FD 

597 


CALL 

RESTORE 

D5 

598 


SEL 

RBI 


599 

600 

;Kr s FF = ITESTED AUD EH I ' 

FF 

601 

602 


MOV 

A,R7 

C5 

603 


SEL 

RBO 

A9 

604 


MOV 

R1,A 

15 

605 


DIS 

I 

14FD 

606 


CALL 

RESTORE 


607 

608 

{CHECK USER MEM BANK SELECT 

BSCS 

609 

610 


MOV 

R0,#I0PTR+3 

1426 

611 


CALL 

CKMB 

E5 

612 


SEL 

MBO 

AA 

613 


MOV 

R2.A 

80 

614 


MOVX 

A.@RO 

4A 

615 


ORL 

A.R2 

90 

616 


MOVX 

ORO,A 

15 

617 

618 

UBE9: 

DIS 

I 

F2A3 

619 


JB7 

TRUN 

B8C1 

620 


MOV 

J^,#RGT0P+2 

42 

621 


MOV 

A,T 

AA 

622 


MOV 

R2,A 

80 

623 


MOVX 

A.@RO 

DA 

624 


XRL 

A,R2 

AA 

625 


MOV 

R2.A 

C6A5 

626 


JZ 

TRUN 

BA40 

627 


MOV 

R2,^40H 

63 

628 

629 

TRUN: 

STOP 

TCNT 

16A8 

630 


JTF 

TRUNl 

BSCS 

631 

632 

TRUNl: 

MOV 

R0,^IOPTR+3 

89 

633 


MOVX 

A, @E0 

49 

634 


ORL 

A,R1 

4A 

635 


ORL 

A,R2 

90 

636 


MOVX 

@RO,A 


C 



;<P1> 

INTERRUPT OR 
ENABLED 


; SELECT RAM MEMORY PACE 1 
I TRUE 

TRUE 

; CLEAR ANY NESTING 


;SA¥E USER INT STATUS AND TRUN FLA 



isis-ii !rcs-4a/upi-*4i Mato assembler, vr.o page 10 

PaDHPT--48 SYSTEM MWTITOR VS.0 6MBZ 


LOG 

OBJ 

sEa 

SOUBCE 

STATEMEBT 


00 A£ 

14FD 

637 

GALL 

RESTORE 

? CLEAR ANY NESTING 



638 






639 

{Coupbte stage address 

/ 



640 




O 0 B 0 

C7 

641 

MOV 

A,PSW 


O0B1 

07 

642 

DEC 

A 


00B2 

3307 

643 

anl 

A,^7H 


00B4 

AA 

644 

MOV 

B2,A 


00B3 

E7 

645 

RL 

A 


00B6 

0308 

646 

ADD 

A, ^8 


00 Ba 

A9 

647 

MOV 

R1,A 

; POINT TO ADDRESS ON STACK 



648 






649 

5 GET USER PC FORM STACK 

* 



650 




0OB9 

FI 

631 

MOV 

A,®R1 

{LOW PC 

00BA 

AC 

652 

MOV 

R4.A 


00BB 

19 

653 

IRC 

R1 


0OBC 

FI 

634 

MOV 

A,@R1 

?HI PC 

00BD 

AE 

655 

MOV 

R 6 ,A 

;SAVE PSW NIBBLE 

0OBE 

530F 

656 

ANL 

A,^ 0 FH 

;MASK PSW 

OOG0 

AD 

637 

MOV 

R5,A 




658 






659 

; rSITIALIZE IHTEBITAL RAM FOR 

MONITOR 



660 




00 c 1 

27 

661 

CLR 

A 


00G2 

07 

662 

MOV 

PSW,A 

; CLEAR SP AND SEL RB0 

00C3 

F5 

663 

SEL 

MBl 




664 






663 

;DEC USER PC ic 

\ TIMES 




666 




00C4 

B804 

667 

MOV 

R0, j^4 


00 C 6 

BF03 

668 

MOV 



00G8 

B479 

669 

CALL 

DEDBL 




670 






671 

;SAVE USER PC 

IN REG TBL 




672 




00CA 

B8C4 

673 

MOV 

R0,^RGTOP-»-5 


00CC 

FD 

674 

MOV 

A,R5 


00GD 

90 

675 

MOVX 

®R0,A 

?<PCH> 

00CE 

FC 

676 

MOV 

A,R4 


00CF 

C8 

677 

DEC 

R0 


00D0 

90 

678 

MOVX 

@R0,A 

i<PCL> 

00 DI 

ca 

679 

DEC 

R0 




680 






681 

; ADJUST SP IN 

USER PSW 




682 




00 D 2 

FE 

683 

MOV 

A,R 6 

;GET PSW UPPER NIBBLE 

00D3 

53F0 

684 

ANL 

A, ^0F0H 


00 Do 

4A 

665 

ORL 

A,B2 

;<SP> 



686 






687 

; INSERT FI IN 

USER PSU 




688 




00D6 

B3 

689 

CPL 

FI 


00 Dr 

76DB 

690 

JFl 

UBK3 


00D9 

4308 

691 

ORL 

A, #8 

;FLAG 1 * 1 



692 

UBK3: 





693 






694 

;SAVE USER PSW 




695 




00DB 

90 

696 

MOVX 

9R0.A 

;<PSW> 



697 






698 

;GET P0 LATCH 

VAL AND SAVE IN TBL 



699 




00DG 

B446 

700 

CALL 

INIl 


00DE 

4380 

701 

ORL 

A,#80H 


00E0 

90 

702 

MOVX 

@R0 , A 


0OE1 

B803 

703 

MOV 

R0,#P0LIII 


00E3 

80 

704 

MOVX 

A,@FJd 


00E4 

9AF0 

705 

ANL 

P2,^MSKPG 


00E6 

8A01 

706 

ORL 

P2,#KEPG1 


DOES 

BSCS 

707 

MOV 

Re.i^flOPTR 


00EA 

90 

70S 

MOVX 

@R0,A 

^ ' 

00EB 

B446 

709 

CALL 

INIl 




ISIS-Il MCS-48/tJPI-41 MACBO ASSEMBLER, V2.0 
PH0ID?T-48 STSTiai EHMIITOR V3.0 6MHZ 
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LOG OBJ SEa SOOBGE STATEMEirr 


0O£D 

94EI) 

710 


CALL 

BLKI ? INIT DISPLAY TABLE 

0OEF 

E5 

711 


SEL 

^IB0 



712 






713 

\Fim 

VHITCH MONITOR COMMAND WAS USED AND 



714 

;RETURir TO THAT ROUTINE. 



715 




00F0 

9AF0 

716 


ANL 

P2,^MSKPG 

00F2 

8A01 

717 


ORL 

P2,#MEPG1 

00F4 

bsik: 

718 


MOV 

RO.^MONRT 

00F6 

80 

719 


MOVX 

A,@R0 

00F7 

03FA 

720 


ADD 

A,^UBK6 AND 0FFH 

00F0 

B3 

721 


JMPP 

0A 



722 

UBK6: 

• 


00FA 

09 

723 


DB 

((UBK5+0> AND 0FFH) 

00FB 

0B 

724 


DB 

(<UBK5+2) AND OFFH) 

00FC 

0D 

725 


DB 

C(UBK5+4) AND OFFH) 



726 






727 

IF (CSAME0 AND 

0FF00H) LT < S AND OFF00H) ) 



728 

MOV 

A,SPEHR ; SATIE PAGE ERROR 



729 

END IF 


. 



730 






731 

RESTORE-- 


O0FD 

93 

732 


RETR 




733 

;ERD OF BREAK ROUTINE 



734 






735 

; ERROR EXIT. 




736 

;THIS 

ABNORMAL 

EXIT IS EXECUTED FOR ALL MONITOR ERROR CONDITIONS 



737 

; DISPLAY ERR IR COMMAND FIELD 



738 

? 





739 

ERROR: 



00FE 

F5 

740 


SEL 

MBl 

00FF 

B406 

741 


CALL 

BLKAD 

0101 

B95B 

742 


MOV 

Rl.^ERTBL AND OFFH 

0103 

044B 

743 


CALL 

MESG 



744 

ERRW: 



0105 

2345 

745 


MOV 

A,^’E’ 

0107 

B825 

746 


MOV 

R0,^PRBYTE 

0109 

A0 

747 


MOV 

@R0,A 



748 

ERRl: 



010A 

E5 

749 


SEL 

MB0 

010B 

243B 

750 


JMP 

CMDEl 



751 






752 






753 

? INITIALIZE SYSTEM l^IE^IORY AND I/O 



754 

? 





755 

INIT: 



010D 

35 

756 


DIS 

TCNTI 

010E 

9AF0 

757 


ANL 

P2,i«^MSiaPG 

0110 

8A0d 

758 


ORL 

P2,^MEI0U ; SELECT MEMORY MAPPED I/O 



759 






760 

i INIT 

USART 




761 




0112 

B821 

762 


MOV 

R0 , ^USACT 

0114 

23CF 

763 


MOV 

A.^MODE 

0116 

90 

764 


MOVX 

0R0.A ; INIT USART MODE 

0117 

2327 

765 


MOV 

A,#TADV 

0119 

90 

766 


MOVX 

0R0,A ; INIT USART COMMAND 

011A 

2325 

767 


MOV 

A, ^COMD 

011C 

90 

768 


MOVX 

@R0,A ; INIT USART COMMAND 

011D 

F4A0 

769 


CALL 

DELAY 

011F 

B820 

770 


MOV 

R0,^USADA 

0121 

80 

771 


MOVX 

A,@R0 



772 






773 

; INIT 

MONITOR FLAGS IN EXTERNAL RAM 



774 




0122 

BF04 

775 


MOV 

R7,^((M0NRT - AHPTR) + 1) 

0124 

B8D9 

776 


MOV 

R0 ♦ ^AXPTR 

0126 

9AF0 

777 


ANL 

P2.^r’ISKPG 

0128 

8A01 

778 


ORL 

P2,i^^MEPGl ; SELECT RAM MEMORY PAGE 1 

012A 

27 

779 


CLR 

A 



730 

INIS: 



012B 

90 

781 


MOVX 

@R0,A 

012C 

18 

782 


INC 

R0 



PA^ 12 


ISIS-M MCS-4a/UPI-41 mCBO ASSSaSBI-ER, V2.0 


PR0MPT-4a SYSTEM MOIfITOR V3.0 4MHZ 



LOC 

OBJ 

sm 

SOURCE 

STATEMENT 

• 

012D 

EF2B 

783 

BJIfZ 

R7,INI3 

?ZERO mXT RAM LOG 

012F 

B8G2 

784 

MOV 

RO , ^RGTOP+3 


0131 

BF03 

785 

MOV 

R7,^3 




786 

INI4: 



0133 

90 

787 

MOVX 

@R0*A 

?<PSV,PCL,PCH> 

0134 

18 

788 

ING 

RO 


0135 

EF33 

789 

0JNZ 

R7, INI4 


0137 

37 

790 

GPL 

A 


0138 

BF03 

791 

MOV 

R7,#3 




792 

IKI5: 



013A 

90 

793 

MOVX 

®R0, A 

;<P0,P1,P2> 

013B 

18 

794 

ING 

EO 


013C 

EF3A 

795 

0JNZ 

R7,INI5 


013E 

37 

796 

GPL 

A 


013F 

90 

797 

MOVX 

@R0, A 

? < P3> 

0140 

B8DD 

798 

MOV 

RO , ASPTR 


0142 

2380 

799 

MOV 

A,^80H 


0144 

90 

800 

MOVX 

@RO,A 




801 






802 

; IITIT PPI AN0 

MACHINE STATE 

■ 



803 




0145 

F5 

804 

SEL 

MBl 


0146 

B42E 

805 

GALL 

INIPPI 


0148 

94F2 

806 

GALL 

BLANK 


014A 

B96E 

807 

MOV 

Rl,^ INTEL AND 0FFH 

014G 

044B 

808 

GALL 

MESG 


014E 

E5 

809 

SEL 

MBO 


014F 

2456 

810 

JMP 

CM0MB 




811 

;ALL BONE 





812 






813 





814 

;MAIN GOMMAN0 

LOOP. 




815 

$THIS LOOP IS 

THE STARTING POINT OF ALL COMMANB SEOUENCES. 



816 

; IN THIS GO0E 

THE PROMPT CHARACTER IS 0ISPLAYEB. 



817 

X CHARACTER IS EHTERED FROM THE CONSOLE KEYBOARD, IT 



813 

; IS CHECKED FOR VALIDITY, THEN 

A BRANCH TO THE PROPER 



819 

{PROCESSING HODTINE IS COMPUTED 

« 



820 

* 





821 

CM0LV: 



0151 

F5 

822 

SEL 

MBl 


0152 

94F2 

823 

GALL 

BLANK 


0134 

946E 

824 

GALL 

PRMPT 

; PROMPT FOR COMMAN0 



825 






826 

;TUBN ON REFRESH ENABLE 




827 






828 

GTI0M0: 



0156 

2320 

829 

MOV 



0158 

B825 

830 

MOV 

R0,#PRBYIE 


015A 

AO 

831 

MOV 

OHO, A 




832 

CM0E1: 



015B 

F3 

833 

SEL 

MBl 


015G 

74FA 

834 

GALL 

ENRFS 


013E 

B446 

835 

CALL 

INIl 


0160 

7410 

836 

CALL 

GETKB 

?GET KEYBOAB0 CHAR 



837 

CM0EN: 



0162 

233F 

838 

MOV 



0164 

B825 

839 

MOV 

RO,^PHBVTE 


0166 

AO 

840 

MOV 

OR0,A 


0167 

F5 

841 

SEL 

mi 


0168 

27 

842 

CLR 

A 


0169 

07 

843 

MOV 

PS¥,A 

? CLEAR STACK PTR 

016A 

B49F 

844 

CALL 

SEW0 


016G 

B82A 

845 

MOV 

RO,^BASEL 


016E 

B4A1 

846 

GALL 

SET00 


0170 

B90F 

347 

MOV 



0172 

B495 

848 

CALL 

SEULX 


0174 

94E0 

349 

GALL 

BLKI 

; BLANK THE 0ISPLAY 

0176 

E5 

850 

SEL 

MBO 


0177 

FE 

851 

MOV 

A,R6 




852 

SAMEl: 



0178 

088F 

853 

A0D 

A,s*(BRTBL AND 0FFH> 

017A 

A8 

S54 

MOV 

R0,A 


017B 

0359 

355 

A00 

A,*(-BRTCH) AND 

OFFH 



ISIS- II Mcs-4a.^i-4i Macao assembler, V 2.0 
PROMPT-48 SYSTEM MDHITOR ^.0 6IfflZ 


PACE 13 


LOC OBJ SEO SOURCE STATEMElfT 


017D 

F656 

856 


JC 

CMDMD 


017F 

Fa 

857 


MOV 

A,R0 


0180 

A3 

858 


MO\T 

A,@A 


0181 

0328 

859 


ADD 

A,‘^(CDTBL - BRTCH) AND 0FFH 

0183 

B93F 

860 


MOV 

Rl,#DIPTR+7. 


0185 

AA 

861 


MOV 

R2,A 


0186 

A3 

862 


MOVP 

A,9A 


0187 

A1 

863 


MOV 

@R1,A 


0188 

G9 

864 


DEG 

R1 


0189 

lA 

865 


INC 

R2 


018A 

FA 

866 


MOV 

A,R2 


0188 

A3 

867 


MOVP 

A,QA 


018G 

A1 

868 


MOV 

0R1,A 


018D 

F8 

869 


MOV 

A,R0 


018£ 

88 

870 


JMPP 

0A 




871 







872 






873 

.•COMMaMD BRARCH TABLE. 




874 

« 






875 

?THIS TABLE CONTAirrS THE EPfTRY POINTS OF 



876 

5 ALL THE COJffilAND PROCESSING ROUTINES. NOTE THAT AN ENTRY TO ’ERROR 



877 

;IS AN ERROR CONDITION, I.E. . NO 

COMMAND CORRESPONDING TO THAT 



878 

; CHARACTER EXISTS. 




879 

* 






880 

BRTBL: 



018F 

A7 

881 

DB 

(BRTCH + 0 > 

AND 0FFH 

TERROR ’0’ 

0190 

A9 

882 

DB 

(BRTCH + 2 ) 

AND 0FFH 

;ERROR 

0191 

A8 

883 

DB 

(BRTCH + 4^) 

AND 0FFH 

jP2DEF *2* PORT 2 MAPPING 

0192 

AD 

884 

DB 

(BRTCH + 6 ) 

AND 0FFH 

; PROMS ’3’ PROG PROM 8755-8751 

0193 

AF 

885 

DB 

(BRTCH + 8 ) 

AND 0FFH 

; BYSEARCH ’4’ SEARCH MEMORY 

0194 

81 

886 

DB 

(BRTCH + 10 

) AND 0FFH 

;TOSEARCH ’5’ SEARCH MEMORY 

0195 

88 

887 

DB 

(BRTCH + 12 

) AND 0FFH 

jHEXAR ’6’ HEX ARITHMETIC 

0196 

85 

888 

DB 

(BRTCH + 14) 

AND 0FFH 

jPROMP *7’ PROG PROM 8748 

0197 

87 

889 

DB 

(BRTCH + 16) 

AND 0FFH 

; com Am ’8’ COMPARE PROM 

0198 

89 

890 

DB 

(BRTCH 4 18) 

AND 0FFH 

jMOVE ’9’ MOVE MEMORY 

0199 

88 

891 

DB 

(BRTCH + 20) 

AND 0FFH 

; ACCES ’A’ SET USER ACCESS 

019A 

80 

892 

DB 

(BRTCH + 22) 

AND 0FFH ;BRKPT ’B’ SET AND CLEAR USER BRE 




AK 

POINTS 



0198 

BF 

893 

DB 

(BRTCH + 24) 

AND. OFFH 

^ CLEAR ’C’ CLEAR BUFFER 

019C 

G1 

894 

DB 

(BRTCH + 26) 

AND 0FFH 

{WRITE *D’ (DUMP) WRITE TTY 

019D 

G3 

895 

DB 

(BRTCH + 28) 

AND OFFH 

{READ ’E’ (ENTER) READ TTY 

019E 

G5 

896 

DB 

(BRTCH + 30> 

AND 0FFH 

FETCH *F’ TRANSFER PROM TO RAM 

019F 

CB 

897 

DB 

(BRTCH + 36) 

AND OFFH 

CMDLV PREVIOUS DELIMITER 

01A0 

CD 

898 

DB 

(BRTCH + 38 

) AND OFFH 

RT OR PROG 

01A1 

GD 

899 

DB 

(BRTCH + 38 

) AND OFFH 

W/BK OR DATA 

01A2 

GD 

900 

DB 

(BRTCH + 38 

) AND OFFH 

SS OR REG 

01 A3 

G9 

901 

DB 

(BRTCH + 34) 

AND OFFH 

EXAMINE MODIFY 

01A4 

G7 

902 

DB 

(BRTCH + 32) 

AND OFFH 

GOCMD ’GO’ 

01A5 

GB 

903 

DB 

(BRTCH +. 36) 

AND OFFH 

NEXT 

01A6 

GB 

904 

DB 

(BRTCH + 36) 

AND OFFH 

CMDLV EXECUTE DELIMITER 



905 







906 

BRTCH: 



01A7 

04FE 

907 


JMP 

ERROR 

’0’ 

01A9 

04FE 

908 


JMP 

ERROR 

’I’ 

01AB 

84F8 

909 


JMP 

P2DEF 

’2’ PORT 2 MAPPING 

01AJ> 

A410 

910 


JMP 

PROI^S 

’3’ PROG PROM 8755-8751 

01AF 

6421 

911 


JMP 

SEARCH 

’4’ BYSEARCH MEMORY 

0181 

44FF 

912 


JMP 

WDSEAR 

’5’ WDSEARCH MEMORY 

0183 

24F7 

913 


JMP 

HEXAR 

’6’ HEX ARITHMETIC 

0185 

A401 

914 


JMP 

PROM? 

’7’ PROG PROM 8748 

0187 

8481 

915 


JMP 

COMPARE 

’8’ COMPARE PROM 

0189 

A44F 

916 


JMP 

MOVE 

’9’ MOVE MEMORY 

0188 

A424 

917 


JMP 

ACCES 

’A* SET USEE ACCESS 

0180 

4415 

918 


JMP 

BRXPT 

’B’ SET AND CLEAR USER BBEAX POIN 

01BF 

84E7 

919 

IS 

JMP 

CLEAR 

’C’ CLExm BUFFER 

01G1 

E406 

920 


JMP 

TOITE 

’D’ (DUMP) miTE TTY 

01C3 

C469 

921 


JMP 

READ 

(ENTER) READ TTY 

01C5 

84E4 

922 


JMP 

FETCH 

’F’ TRANSFER PROM TO RAM 

01G7 

4483 

923 


•JMP 

GOGMD 

’GO’ 

01C9 

649E 

924 


JM? 

mcm 

’EX’ EXAJIINE MODIFY 

01G8 

245 1 

925 


JMP 

cmhv 

NEXT, EDUSCUTE, PREVIOUS 



isis-ii i®cs-4a/OTi-4i mcm assembler^ V 2.0 face 14 

PROMPT-48 SYSTEM MONITOR V3.0 6MHZ 


LOG 

OBJ 

SEO 

SOURCE 

STATEMENT 



01CD 

04FE 

926 

JMP 

ERROR 


PROG, BEG, DATA’ 



927 







928 

(HITBL: 




01CF 

Cl 

929 

DB DCH.DCD 


;£HR0R 

’0’ 

01D0 

A1 






01D1 

Cl 

930 

DB DCU,,DCD 


; ERROR 

’1’ 

01D2 

A1 






01D3 

8G 

931 

DB DCPC,DC2 


|P2DEF 

*2’ PORT 2 MAPPING 

01D4 

A4 






01D5 

8G 

932 

DB DCPC.DCLCR 


; PROMS 

’3’ ’PROG PROM* 8755-8751 


01D6 AF 

01D7 92 933 DB DCS,0C1 iBYSEARCH MEMORY "4* 

01D8 F9 * 

01D9 92 934 DB DC5,DC2 ;TOSEARCH MEMORY *5’ 

OIDA A4 

01DB 89 935 DB DCH^DCE ;HEX ARITHMETIC ’6’ 

0IDG 86 

01DD 8C 936 DB DCPC.DCLCR ; PROMT *7* ’PROG PROM’ 8748 

01DE AF 

01DF C6 937 DB DCC,DCLCO ; COMPARE ’S’ ’COMPARE PROM’ 

01EO A3 

01E1 AB 938 DB DCLCM^DCBL ;MOVE MEiMORY ’9’ 

01E2 FF 

01E3 88 939 DB DCA,DCLCC ?ACCES ’A’ SET USER ACCESS 

01E4 A7 

01E5 83 940 DB DCB,DCLGR ;BRKPT ’B’ SET AND CLEAR USER BREAK POINTS 

01E6 AF 

01E7 C6 ^ 941 DB DCC,DCBL ; CLEAR ’C’ CLEAR BUFFER 

01E8 FF 

01E9 A1 942 DB DCD^DCBL ; WRITE ’D’ (DUMP) WRITE TTY 

01EA FF 

01EB AF 943 DB DCLCR^DCBL 5 BEAD ’E’ (ENTER) BEAD TTY 

01EG FF 

01ED 8E 944 DB DCF,DCPC ; FETCH ’F’ TRANSFER PROM TO RAM 

01EE 8C 

01EF C2 945 DB DCG,DCBL jGOCMD ’GO’ 

01F0 FF 

01F1 86 946 DB DCE,DCBL ;EMCI© EXAMINE MODIFY ’EX’ 

01F2 FF 

01F3 BF 947 DB DCDSH.DCBL jCMDLV NEXT, EXECUTE. PREVIOUS 

01F4 FF 

01F5 Cl 948 DB DCU.DCD ;ERROR ’PROG, REG. DATA’ 

01F6 A1 

949 

950 IF ((SAMEl AND 0FF00H) LT ( S AND 0FF00H) ) 

951 MOV A.SPERR ?SAME PAGE ERROR 

952 ENDIF 

953 

954 ;END BRANCH TABLE 

956 ?HEX ARITHMETIC 

957 ; COMPUTE HEXADECIMAL SUM AND DIFFERENCE. 

958 ; 

959 ;THIS ROUTINE EXPECTS TWO HFJCADECIMAL PARAMETERS. 

960 ; IT COMPUTES TOE SUM AND DIFFERENCE OF THE TWO VALUES 

961 ?AND DISPLAYS THEM AS FOLLOWS: 

962 ?<P1+P2> , <Pi-P2> 

963 ; 

964 HEXAR: 

01F7 F5 965 SEL MBl 

01F8 BA00 966 MOV 

01FA 74D0 967 CALL GTP0 

01FC 74D0 968 CALL GTP0 

969 

970 ; DISPLAY SUM IN ADDRESS FIELD 

971 

01FE BS04 972 MOV R0,^4 

0200 B932 973 MOV Rl,v^^WIlSL 

0202 94DA 974 CALL ADDBL 

0204 B905 975 MOV RI,^5 

0206 9476 976 CALL DADDFL 

977 

978 ; DISPLAY DIFFEBANCE IN DATA FIELD 




isis-n Mcs*4a/t3Pi-4i mcm assembler, v 2 *o 

PBOMPT-4a SYSTEM MDRITOR VC.0 6MHZ 


PACE 15 


LOG 

OBJ 

SEO 

SOURCE STATEMENT 



979 



0208 

B832 

980 

MOV 

R0 , ^WRKL 

O20A 

B930 

981 

MOV 

R1 , ^WRKIL 

020C 

94D6 

982 

CALL 

SUBBL 

020E 

B933 

983 

MOV 

Rl.^WRKH 

0210 

9486 

984 

GALL 

DKKAO 



985 





986 

«ALL DONE 




987 



0212 

£5 

988 

SEL 

MB0 

0213 

2456 

989 

JMP 

CMDMD 



990 





991 





992 

.•BREAKPOINT: - 

• 



993 

?THE BREAKPOINT 

’ CO^IMAND ALLOWS ACCESS TO THE BREAKPOINT 



994 

; ENTRY OF A " 

FOLLOWING THE ADDRESS SPECIFICATION 



995 

;WILL BETOHir THE DATA, VHICH MAY BE MODIFIED, OR 



996 

;PRESEKVEO, AND 

I A FURTHER ", " ENTRY WILL ACCESS THE 



997 

?NEXr ADDRESSABLE DATA. BREAKPOINTS MAY 



998 

;BE CLEARED BY 

ENTERING THE BREAKPOINT NXDIBER 



999 

; WITHOUT AN ADDRESS ARGIDIENT. ALL BREAKPOINTS ?IAY 



1000 

;BE CLEARED BY ENTERING “B" WITH NO ARGWIENTS. 



1001 

1002 

BRKPT: 


0215 

F5 

1003 

1004 

SEL 

MBl 



1005 

1006 

iSET PTRIL/H = 

VAL/VAH 

0216 

B834 

1007 

MOV 

R0,#UPLML 

0218 

230F 

1008 

MOV 

A,^(BXMAX-BXPTR) 

021A 

B900 

1009 

MOV 

Rl.^O ; EXT MEM UPPER LIMIT 

02 IG 

B4A3 

1010 

1011 

GALL 

PRSET 



1012 

1013 

?SET PTRlL/H ® 

VAL/MEPGl 

021E 

B82A 

1014 

MOV 

R0,^«fBASEL 

0220 

23C9 

1015 

MOV 

A, ^BXPTR 

0222 

B49B 

1016 

CALL 

SETPl 

0224 

94Ba 

1017 

CALL 

GADDR {GET ADDRESS 

0226 

0410 

1018 

1019 

CALL 

PUSH ; SAVE DEL IHITER 



1020 

1021 

; IF DELIMITER ® 

CLEAR ENTRY THEN ABORT 

0223 

323C 

1022 

JBl 

BRK9 



1023 

1024 

1025 

5 IF ADDRESS NOT 

ENTERED THEN CLEAR ALL BREAK POINTS 

022A 

F63F 

1026 

1027 

JC 

BBKl {IF ADDRESS ENT 



1028 

• IF DELIMITER <> EXECUTE THEM ERROR 



1029 



022G 

C631 

1030 

JZ 

BEK2 {NO ERROR 



1031 

BRK3: 


022E 

E5 

1032 

SEL 

tmo 

022F 

04FE 

1033 

JflP 

ERROR 



1034 

1035 

BRK2: 




1036 

{CLEAR ALL BREAK POINTS 



1037 



0231 

BE10 

1033 

MOV 

R6,^<(BXMAX- BXPTR) 



1039 

BRK10: 


0233 

BC00 

1040 

MOV 

R4,^0 



1041 

NXBRK: 


0233 

F5 

1042 

SEL 

MBl 

0236 

0408 

1043 

CALL 

STOWK 

0233 

B4FI> 

1044 

CALL 

INWBK 

023A 

EE35 

1043 

DJNZ 

R6. NXBRK 



1046 

BRK9t 


023C 

Eo 

1047 

SEL 

MBO 

0230 

2451 

1043 

JMP 

CHDLV {ALL DONE 



1049 

BBKl: 


023F 

7408 

1050 

CALL 

EPJSBl 

0241 

7408 

1051 

GALL 

EISBl {MULTIPLY BY 2 



ISIS-IT MCS-4a/'tJFI-41 HACBO ASSEJIBLER, V2.® PACT! 16 

PaOMPT-4a SYSTEM MOmTOR V3.0 6MHZ 

LOG OBJ SEtt SOURCE STATEMEITT 


1052 

1053 ; IF ADDRESS > UPPER LIMIT TSEIT ERROR 

1054 


0243 

E62S 

1055 

jure 

BRIC3 

;IF ERROR 

0245 

0422 

1056 

1057 

CALL 

POP 

5 GET OELIMITER 



1058 

;IF OELIMITER 

a execute THEir CLEAR ONE BREAK POINT 



1059 




024T 

964E 

1060 

1061 

JNZ 

60X4 

; IF NOT EXECUTE 



1062 

; CLEAR ORE BREAK POIRT 




1063 




0249 

BE02 

1064 

MOV 

R6,#2 


0246 

E5 

1065 

SEL 

MBO 


024G 

4433 

1066 

JMP 

BRECIO 




1067 

1068 

BKX4: 





1069 

tOISPLAY AODRESS 




. 1070 




024E 

6832 

1071 

MOV 

RO y ^WRKL 


0250 

FO 

1072 

MOV 

A,@RO 


0251 

77 

1073 

RR 

A 


0252 

6905 

1074 

MOV 

Rl,#5 


0254 

AC 

1075 

MOV 

R4,A 


0255 

27 

1076 

CLR 

A 


0256 

AO 

1077 

MOV 

R5,A 


0257 

F5 

1078 

SEL 

MBl 


0258 

9476 

1079 

1080 

CALL 

DAODFL 



- 

1081 

;GET A BFiEAK POINT VALUE FROM EXT RAM 



1082 




025A 

64 A8 

1083 

CALL 

FETOK 

jGET LOW BYTE 

025G 

AC 

1084 

MOV 

R4,A 

* 

025D 

19 

1085 

IRC 

R1 


025£ 

81 

1086 

MOVX 

A,mi 

?GET HI BYTE 

025F 

AO 

1087 

1088 

MOV 

FSyA 




1089 

1090 

5 DISPLAY ’ — ’ 

IF BREAK POINT 

IS CLEARED 

0260 

F26F 

1091 

JB7 

BPJS 

; IF NOT CLEARED 

0262 

6833 

1092 

MOV 

RO,^DIPTH 


0264 

BF03 

1093 

MOV 

R7,#3 


0266 

23BF 

1094 

MOV 

A, ^DCDSH 




1095 

6BIC6: 



0268 

AO 

1096 

MOV 

OR0-,A 

; DISPLAY 

0269 

18 

1097 

IRC 

R0 


026A 

EF6a 

1098 

OJRZ 

R7,BRK6 


026G 

E5 

1099 

SEL 

MBO 


026B 

4471 

1100 

JMP 

BRK7 




1101 

6R£5: 



026F 

9484 

1102 

CALL 

045AD 

? DISPLAY OLD DATA 



1103 

1104 

6RK7: 





1105 

;OET DATA FROM KB AND ECHO IR 

DATA FIELD 



1106 




0271 

F5 

1107 

SEL 

MBl 


0272 

6902 

1108 

MOV 

Rl,^2 


0274 

B40C 

1109 

CALL 

GDATA 


0276 

0410 

1110 

1111 

CALL 

PUSH 

?SAVE DELIMITER 



1112 

; IF REV DATA ERTEREO THEN STORE RE¥ DATA 



1113 




0278 

E67F 

1114 

1115 

JRC 

6RK8 

i IF NO DATA ENTERED 



1116 

; STORE mV DATA 




1117 




027A 

0408 

IMS 

GALL 

STO^?K 

iSAVE LO’N BYTE 

027G 

19 

1119 

IRC 

RI 


0271) 

FO 

1120 

MOV 

A»R5 


027E 

91 

1121 

MOVX 

@R1,A 

;SAVE HI BYTE 



1122 

1123 

BRIS: 





1124 

;GX DELIMITER 

AND ADDRESS 
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LOG OBJ SEO SOURCE STATEMEITT 

1125 

027F 547D 1126 CALL EMSB4 

0281 547D 1127 CALL EMSB4 

0283 F64E 1128 JC BRK4 tNOT DONE , DO NEXT ADDRESS 

0285 £5 1129 SEL MBO 

0286 2451 1100 JMP CJIDLV ;ALL DONE 

1131 

1132 

1133 ;G0 TO THE PROPER GO-ROUTINE 




1134 





1135 

GOCMD: 


0288 

F5 

1136 

SEL 

MBl 

0289 

5494 

1137 

CALL 

GGOTY 

028B 

B6DA 

1138 

MOV 

R0,^RNPTR 

028D 

90 

1139 

MOVX 

0R0,A 

028E 

FE 

1140 

MOV 

A,R6 

028F 

D410 

1141 

CALL 

PUSH 

0291 

5445 

1142 

CALL 

GOSUB 

0293 

B4E7 

1143 

CALL 

CODEl 

0295 

D422 

1144 

CALL 

POP 

0297 

E5 

1145 

SEL 

l^IBO 

0298 

32A2 

1146 

JBl 

GOSSl 



1147 





1148 

1 

1 

1 

1 

1 

1 



1149 

T SINGLE STEP: 

— 



1150 

5 THIS COMMAND 

CAUSES THE PROCESSOR TO EXECUTE ONE 



1151 

i INSTRUCTION OF USER CODE, THEN RETURN TO MONITOR 



1152 

;FOR EXAMINATION, ETC, IF THE “ADDR" ARGUMENT IS 



1153 

rOMMITTED, THEN EXECUTION PROCEEDS FROM THE LAST 



1154 

; ADDRESS. TEtE 

MONITOR REmiNS .IN THE SINGLE STEP 



1155 

;IIODE TJHTIL 

SOME OTHER COMMAND IS EXECUTED, 



1156 

i ALLOWING THE 

USER TO STEP THROUGH HIS PROGRAM, BY 



1157 

5 COrrSECOTIVELT 

' ENTERING AFTER EACH 



1158 

; mSTRDCTlOH IS EXECUTED, THE CUBREHT ADDRESS IS 



1159 

; OUTPUT VITH THE CONTENTS OF THE ACCUMULATOR. 



1160 





1161 

jGOIREAL TIME) 

: — 



1162 

jTHIS CAUSES EXIT FROM THE MONITOR PROGRAM TO THE 



1163 

;USER PROGRAM 

LOCATED AT "ADDR“. NO BREAKPOINTS 



1164 

;ARE POSSIBLE 

IN THIS MODE, AND THE USER PROGRAM 



1165 

i EXECUTES AT FULL SPEED. THE USER PROGRAM MAY ONLY 



1166 

;BE INTERRUPTED BY A “MON RTH" COMMAND FROM THE 



1167 

; KEYBOARD. 




1168 

t 




1169 

GOAGN: 




1170 

;RUN REAL TIME 

OR STEP ONE INSTRUCTION 



1171 



029A 

64A6 

1172 

JMP 

ENTER 



1173 

RETSS: 




1174 

RETGO: 




1175 





1176 

; DISPLAY <USER 

PC> AND <A> 



1177 



029C 

F5 

1178 

SEL 

MBl 

029D 

545D 

1179 

CALL 

WAIT 

029 F 

E5 

1180 

SEL 

MBO 

02A0 

449A 

1181 

JMP 

GOAGN 



1182 





1183 





1184 

;G0( SINGLE STEP): - 


1183 ;THIS MODE ADVANCES THROUGH TBDE USER PROGRAM AS 

1186 ;FAST AS POSSIBLE, WILE DUMPING 'FHE CONTENTS OF 

1187 ;THE PROCESSOR AT EACH INSTRUCTION BOUNDARY, AND 

1188 ; PERFORMING A SOFTT^ARE COJIPARE AGAINST TEE VARIOUS 

1189 ;BREAICPOINTS. CSEE BREAKPOINT) EXECUTION BEGINS AT 

1190 ; "ABDR" IF THE ARGUMENT WAS ENTERED, OTHEPvWISE 

1191 ; EXECUTION CONTINUES FROM THE LATEST BREAKPOIirT. 

1192 ; 

1193 ;STEP ONE INSTRUCTION 

1194 

1195 GOSSl: 

1 196 JMP 

1197 BETGS: 


02A2 64A6 


ENTER 
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LOC OBJ 


SEa SOURCE STATEMENT 


02A4 

9AF0 

1198 

ANL 

P2,^M5XPG 


02A6 

8A01 

1199 

ORL 

P2,#MEPG1 

; SELECT RAM MEMORY PAG 

02Aa 

F5 

1200 

SEL 

MBI 




1201 

1202 

1203 

;SET PTRIL/H = 

VAL/MEPGl 


02A9 

B82A 

1204 

MOV 

R0,#BASEL 


02AB 

2SC9 

1205 

MOV 

A*^BXPTR 


02AD 

B49B 

1206 

CALL 

SETPl 


02AF 

B49F 

1207 

1208 

CALL 

SEWKO 




1209 

1210 

;GET USER <PC> 



02B1 

B930 

1211 

MOV 

R1,#¥RK1L 


02B3 

B8G3 

1212 

MOV 

R0,*RGTOP+4 


02B5 

80 

1218 

MOVX 

A.ORO 

;GET <PCL> 

02£6 

A1 

1214 

MOV 

@RI,A 


02B7 

18 

1215 

INC 

R0 


02B8 

19 

1216 

INC 

R1 


02B9 

80 

1217 

MOVX 

A,@R0 

;GET <PCH> 

02BA 

530F 

1218 

ANL 

A,#0FH 


02BG 

A1 

1219 

MOV 

®ri;a 


02BD 

BE08 

1220 

1221 

MOV 

R6,^<(<BXMAX 

- BXPTR) + 1) / 2> 



1222 

;GET BREAK POIBT CONTEHT 




1223 

1224 

G0SS2: 



02BF 

F5 

1225 

SEL 

MBI 


02G0 

B4AS 

1226 

. CALL 

FEl^miC 

;GET LOW BYTE 

02G2 

AC 

1227 

MOV 

R4,A 


02C3 

B4FI) 

1228 

CALL 

iNmx 


02G3 

B4A8 

1229 

CALL 

FEWRiC 


02G7 

A0 

1230 

MOV 

R5,A 


02Ga 

B4FD 

1231 

CALL 

immx 

5 INC BXPTR TWICE 

02GA 

FD 

1232 

MOV 

A,R5 


02GB 

530F 

1233 

ANL 

A,^0FH 


02GD 

21) 

1234 

XCH 

A,R5 


02GE 

37 

1235 

1236 

CPL 

A 




1237 

5GET NEXT BX IF THIS ONE IS CLEARED 



1238 




02CF 

F2B9 

1239 

1240 

JB7 

G0SS4 

lIF CLEARED 



1241 

1242 

; COMPARE BX TO 

<PC> 


02D1 

B804 

1243 

MOV 

R0,#4 


021)3 

B930 

1244 

MOV 

R1 , #raKlL 


021)5 

B462 

1245 

CALL 

CKDBL 


02D7 

B6EA 

1246 

JF0 

G0SS3 

;IF PC=BX 



1247 

G0SS4: 



02D9 

EEBF 

1248 

1249 

DJNZ 

R6,G0SS2 

5CK next BX 



1250 

5 IF MONITOR EHTRY PRESSED THEIf HETDRR TO COHHAin) LEVEL 



1251 




02DB 

9AF0 

1252 

ANL 

P2,^MSKFG 


02DO 

8A08 

1253 

ORL 

P2,#MEI0U 


02DF 

B80B 

1254 

MOV 

RO,^MCHST 


02E1 

80 

1255 

MOVX 

A,@R0 


02E2 

37 

1256 

CPL 

A 


02E3 

52E7 

1257 

JB2 

G0SS6 


02E5 

545D 

1258 

CALL 

WAIT 




1259 

G0SS6: 



02E7 

E5 

1260 

SEL 

MB0 


02E8 

44A2 

1261 

1262 

JMP 

GOSSl 

?N0 BX MATCHED 



1263 

; DISPLAY BX IDENTIFIER IN CMD 

FIELD, <USER PC>,<A> 



1264 

1265 

G0SS3: 



02EA 

B83E 

1266 

MOV 

R0,j^fDlFTR+6 


02EC 

FE 

1267 

MOV 

A,R6 


02EI) 

37 

1268 

CPL 

A 


02EE 

17 

1269 

INC 

A 


02EF 

0308 

1270 

ADD 

A,^<<(BXMAX - 

BXPTR) + 1) /• 2) 


I 
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LOG 

OBJ 

SEO 

SOURCE 

STATEMENT 


02F1 

AA 

1271 

MOV 

R2,A 


02F2 

D431 

1272 

GALL 

DECHX 

; DISPLAY HEX DIG 

02F4 

18 

1273 

INC 

R0 


02F5 

2383 

1274 

MOV 

A, ^DCB 


02F7 

A0 

1275 

MOV 

0R0,A 




1276 

G0SS5: 



02F8 

940D 

1277 

CALL 

DIPAW 


02FA 

545F 

1278 

CALL 

WAIT2 


02FC 

E5 

1279 

SEL 

MBO 


02FD 

44A2 

1280 

JMP 

GOSSl 




1281 






1282 





1283 

; SEARCH MEMORY FOR DOUBLE BYTE 

VALUE. 



1284 

rrais ROUTINE 

EXPECTS FOUR HEXADECIMAL PARAMETERS, 



1285 

jATfD OPTIONALLY SIX PAJRAMETEHS, 




1286 

5 the first T>fD OF WHICH ARE INTERPRETER AS THE MErWRY 



1287 

;AHEA TO BE SEARCHED, AND THE THIRD AND FOURTH BEING THE 



1288 

; DOUBLE BYTE TO BE FOUND. THE FIFTH AND SIXTH ARE 



1289 

iA DOUBLE BYTE MASK, THE ADDRESSES OF ANY VALUE MATCHES ABE 



1290 

; DISPLAYED IN 

THE ADDRESS FIELD 

, 



1291 

? 





1292 

TOSEAR: 



02FF 

B82D 

1293 

MOV 

R0,^WRK3H 


0301 

27 

1294 

CLR 

A 


0302 

37 

1295 

CPL 

A 


0303 

AO 

1296 

MOV 

®RO,A 

5 SET MASK HI TO ALL BITS 

0304 

ca 

1297 

DEC 

R0 


0305 

A0 

1298 

MOV 

@R0,A 

?SET MASK LOW TO ALL BITS 

0306 

7474 

1299 

CALL 

SEA7 

;GET ADDRS AND DATA LOW 

0303 

7485 

1300 

CALL 

SEAS 

;GET DATA HI 

030A 

B82F 

1301 

MOV 

R0,^WRK2H 


03ec 

FC 

1302 

MOV 

A,R4 


030D 

A0 

1303 

MOV 

0R0,A 




1304 






1305 

; IF DEL « EXECUTE THEN NO MASK 




1306 




030E 

A5 

1307 

CLR 

FI 

;RESET BYTE SEARCH FLAG 

030F 

FA 

1308 

MOV 

A,R2 


0310 

C635 

1309 

JZ 

SEA9 


0312 

7485 

1310 

CALL 

SEAS 

;GET MASK LOW 

0314 

BS2C 

1311 

MOV 

R0,^WRK3L 


0316 

FC 

1312 

MOV 

A,R4 


0317 

A0 

1313 

MOV 

®R0,A 


0318 

7485 

1314 

CALL 

SEAS 

?GET MASK HI 

031A 

B82D 

1315 

MOV 

R0,^WRK3H 


031C 

FC 

1316 

MOV 

A,R4 


03 ID 

A0 

1317 

MOV 

@R0,A 


03 IE 

A5 

1318 

CLR 

FI 

? RESET BYTE SEARCH FLAG 

03 IF 

6435 

1319 

JMP 

SEA9 



1320 

1321 ; 

1322 5 SEARCH MEMORY FOR BYTE VALUE, 

1323 ;THIS ROUTIHE EXPECTS THREE HEXADECIiaAL PARAMETERS, 

1324 5Aia) A FOURTH OPTIONAL PARAMETER, 

1325 ;THE FIRST TWO OF WICH ARE INTERPRETED AS THE MEMORY 

1326 jAREA TO BE SEARCHED, AND THE THIRD BEING THE BYTE 

1327 ;TO BE FOUND. THE FOURTH IS A BYTE MASK. 

1328 ;THE ADDRESSES OF ANY VALUE MATCHES ARE 

1329 ; DISPLAYED IN THE ADBP*ESS FIELD. 

1330 ; 

1331 SEARCH: 


0321 

B82D 

1332 

MOV 

R0,^WRE3H 


0323 

27 

1333 

CLR 

A 


0324 

A0 

1334 

MOV 

QR0,A 

;SET MASK HI TO DON’T CARE 

0325 

37 

1335 

CPL 

A 


0326 

CS 

1336 

DEC 

R0 


0327 

A0 

1337 

MOV 

€R0,A 

;SET MASK LOW TO ALL BITS 

0323 

7474 

1338 

CALL 

SEAT 




1339 






1340 

? IF DEL = EXECUTE THEN NO MASK 




1341 




032A 

A5 

1342 

CLR 

FI 


032B 

B5 

1343 

CPL 

FI 

•,SET BYTE SEARCH FLAG 


SET BYTE SEARCH FLAG 
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LOG OBJ SEO SOtntCE STATEMEITr 


032C 

FA 

1344 

MOV 

032D 

C635 

1345 

JZ 

032F 

7485 

1346 

CALL 

0331 

B82C 

1347 

MOV 

0333 

FC 

1348 

MOV 

0334 

A0 

1349 

1350 SEA9: 

MOV 

0335 

B92E 

1351 

MOV 

0337 

7492 

1352 

CALL 

0339 

F5 

1353 

SEL 

033A 

049F 

1354 

1355 SEA2: 

CALL 

033C 

F5 

1356 

SEL 

0330 

B4A8 

1357 

CALL 

033F 

AC 

1358 

MOV 

0340 

A£ 

1359 

MOV 

0341 

27 

1360 

CLR 

0342 

AO 

1361 

MOV 

0343 

7650 

1362 

JFl 

0345 

B4F0 

1363 

CALL 

0347 

B452 

1364 

CALL 

0349 

£663 

1365 

JWC 

034B 

B4A8 

1366 

CALL 

0340 

AO 

1367 

MOV 

034£ 

B475 

1368 

1369 SEA3: 

CALL 

0350 

£5 

1370 

SEL 

0351 

7490 

1371 

CALL 

0353 

F5 

1372 

SEL 

0354 

B804 

1373 

MOV 

0356 

B92E 

1374 

MOV 

0358 

B462 

1375 

CALL 

035A 

B666 

1376 

1377 SEA5: 

JF0 

035C 

F5 

1378 

SEL 

0350 

B4FD 

1379 

CALL 

035F 

B452 

1380 

CALL 

0361 

F63G 

1381 

1382 SEAl: 

JC 

0363 

£5 

1383 

SEL 

0364 

2451 

1384 

1385 S£A4^ 

JMP 

0366 

FE 

1386 

MOV 

0367 

AC 

1387 

MOV 

0368 

9474 

1388 

CALL 

0364 

947C 

1389 

CALL 

036C 

545F 

1390 

CALL 

036 £ 

£5 

1391 

SEL 

036F 

645C 

• 1392 

1393 SEA6: 

JMP 

0371 

£5 

1394 

SEL 

0372 

04FE 

1395 

1396 SEA7: 

JMP 

0374 

F5 

1397 

SEL 

0375 

5480 

1398 

CALL 

0377 

74B6 

1399 

CALL 

0379 

B406 

1400 

CALL 

037B 

£5 

1401 

SEL 

037C 

7485 

1402 

CALL 

037E 

B92E 

1403 

MOV 

0380 

F5 

1404 

SEL 

0381 

B486 

1405 

CALL 

0383 

£5 

1406 

SEL 

0384 

83 

1407 

1408 SEAS: 

RET 

0385 

F5 

1409 

SEL 

0386 

B400 

1410 

CALL 

0388 

B410 

1411 

1412 

1413 ;IF OEL 

1414 

CALL 

* CU 

OSSA 

3263 

1415 

1416 

JBl 


A,B2 

SEA9 

SEAS 

R0 1 ^ WRK3L 
A,R4 

QBO, A 

;GET MASK 

R1.#TOK2L 
SEAl 1 

MBl 

WRJCIA 

;MASK THE FOR CLAUSE 

MBl 

FETOK 

R4tA 

R6*A 

A 

R5,A 

;GET FIBST BYTE 

SEA3 

; IF BYTE SEARCH 

IRVRK 

ClVKVl 

SEAl 

;IF ALL'OONE 

FEVRK 

R5.A 

DEWRK 

;GET SECOND BYTE 

MB0 

SEA10 

MBl 

R0,^4 . 

R1 , #raK2L 
CKDBL 

; COMPARE DATA 

SEA4 

? MATCH FOUND 

MBl 

INTOK 

C’WKVl 

SEA2 

;NOT DONE 

MB0 

GMDLV 


A,R6 

R4,A 

OAFLO 

OOTFO 

VAIT2 

MBO 

SEA5 

; CONTINUE SEARCH 

MBO 

ERROR 


MBl 

GEXTY 

G2PRM 

BLKAO 

MBO 

SEAS 

R1 9 ^VBE2L 
MBl 

MVR45 

MBO 


MBl 

BLKOA 

GBYTE 

;GET NEXT BYTE 

ERTRY THER 

ABORT 

SEAl 
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LOC 

OBJ 

SEa 

SOOBCE 

STATEMENT 




1417 

5 IF NO DATA ENTERED THEN ERROR 




1418 




0380 

E671 

1419 

JNC 

SEA6 


038E 

E5 

1420 

SEL 

MB0 


038F 

83 

1421 

RET 





1422 

1423 

SEAIO: 





1424 

1425 

;MASK DATA 



0390 

B904 

1426 

MOV 

R1 , Jflf4 




1427 

SEAll: 



0392 

B82G 

1428 

MOV 

R0,#WRK3L 


0394 

BF02 

1429 

MOV 

R7,#2 




1430 

SEA12: 



0396 

F0 

1431 

MOV 

A,0R0 


039T 

51 

1432 

ANL 

A,@R1 


0398 

A1 

1433 

' MOV 

QR1,A 


0399 

18 

1434 

INC 

R0 


039 A 

19 

1435 

INC 

R1 


039B 

EF96 

1436 

DJNZ 

R7,SEA12 


039D 

83 

1437 

1438 

RET 





1439 






1440 

;E2{AMINE/M0DIFY PROGRAM MEMORY 

- 



1441 



* 



1442 

; EXAMINE/MODIFY DATA MEMORY - 




1443 






1444 

;EXAHIWE/fH)DIFY REGISTER; - 




1445 






1446 

;THE E/M COMMAND ACCESSES DATA 

IN RAM MEMORY. 



1447 

; ENTRY OF A " , 

” FOLLOWING TEE ADDRESS SPECIFICATION 



1448 

?WILL RETOBR THE DATA, WtlCH MAY BE MODIFIED, OR 



1449 

sPERSERVED, AKD A FURTHER ENTRY WILL ACCESS THE 



1450 

5 NEXT ADDRESSABLE DATA. 




1451 

? 





1452 

EMCMDs 



039E 

F5 

1453 

SEL 

MBl 


039F 

5486 

1454 

CALL 

GEXTY 


03A1 

346E 

1455 

CALL 

E1M3UB 


03A3 

E5 

1456 

SEL 

fIB0 


03A4 

2451 

1457 

JMP 

CJIDLV 

jRETDRN TO COMMAND LEVEL 



1458 

1459 






1460 

;THIS RODTINE 

WILL RESTORE THE 

PROCESSER’S 



1461 

; STATE TO THE 

USER CONDITIONS AND ENTER THE USER 



1462 

; PROGRAM. 





1463 

t 





1464 

ENTER: 



03A6 

15 

1465 

DIS 

I 


03A7 

6920 

1466 

MOV 

R1,^IMB0T 


03A9 

9AF0 

1467 

ANL 

P2,^MSKPG 


03AB 

SAOl 

1468 

1469 

ORL 

P2*^MEPGl 

; SELECT RAM MEMORY PAGE 



1470 

; RESTORE TIMER FLAG 




1471 




03AD 

B8C8 

1472 

MOV 

R0,^IOPTR+3 


03AF 

80 

1473 

MOVX 

A,@RO 


0360 

37 

1474 

CPL 

A 


0361 

B2B7 

1475 

JB5 

ENT14 


0363 

23FF 

1476 

MOV 

A,^0FFH 


0363 

62 

1477 

MOV 

T,A 


0366 

55 

1478 

STRT 

T 




1479 

1480 

ENT14: 





1481 

1482 

; STORE A TEMP 

TABLE IN INTERNAL 

. RAM 

0SB7 

BSC2 

1483 

MOV 

R0,^RGTOP+3 


0SB9 

80 

1484 

1485 

MOVX 

A,@R0 

?GET PSW 



1486 

1487 

; RESTORE FI 



03BA 

A5 

1438 

CLR 

FI 


0366 

B5 

1489 

CPL 

FI 

;F1 « 1 
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PACT 2a 


LOG OBJ SEa SOURCE STATEMEIfr 


03BC 

72BF 

1490 


JB3 

ERTT 


03BE 

A5 

1491 


CLR 

FI 

II 



1492 

Eirr?: 




03BF 

53F7 

1493 


ARL 

A,^0F7R 

;MSK OUT FI 

03G1 

17 

1494 


IRC 

A 

5 ADJUST SP 

03C2 

53F7 

1495 


ARL 

A,.^0F7H 


03C4 

A1 

1496 


MOV 

@Rl,A 

;SAVE <PS1^> 

03C5 

19 

1497 


IRC 

R1 


03C6 

F5 

1498 


SEL 

MBl 


03C7 

1)477 

1499 


CALL 

GETAC 

?GET USER ACCESS CODE 

03C9 

E5 

1500 


SEL 

MB0 


03CA 

18 

1501 


IRC 

R0 

- 

03GB 

A1 

1502 


MOV 

0R1,A 


03CC 

80 

1503 


wovx 

A,OR0 

‘;GET RUN BEAL TIME FLAG 



1504 







1505 

;SET 

RUR BIT 

IF FLAG a GORT 




1506 





03CD 

9603 

1507 


JRZ 

ERT9 


03CF 

23BF 

1508 


MOV 

A,^((ROT 40H> 

ARB OFFH) 

031)1 

51 

1509 


ARL 

A,QR1 


031)2 

A1 

1510 


MOV 

0R1,A 

5 save MACHINE STATE 



1511 

Eirr9: 




03D3 

19 

1512 


IRC 

R1 


03D4 

B881 

1513 


MOV 

R0,^RGPTR+1 


03 D6 

80 

1514 


MOVX 

A,@R0 

;GET <R1> 

03D7 

A1 

1515 


MOV 

@R1,A 


03D8 

19 

1516 


IRC 

R1 


03D9 

B80B 

1517 


MOV 

R0 , ^P2FTR 


03DB 

80 

1513 


MOVX 

A,@R0 


0300 

AF 

1519 


MOV 

R7,A 


03DD 

B8C7 

1520 


MOV 

R0, Ji*I0PTR+2 


03BF 

80 

1521 


MOVX 

A,OR0 

jGET <P2> 

03£0 

4F 

1522 


ORL 

A,R7 


03E1 

A1 

1523 


MOV 

@R1,A 


03£2 

19 

1524 


IRC 

R1 




1525 







1526 

;SET THIS MEM LOC= <R3I> 




1527 





03E3 

B89F 

1528 


MOV 

R0,^RGPTR+31 


03E5 

80 

1529 


MOVX 

A.@RO 

;GET <R31> 

03E6 

A1 

1530 


MOV 

SRI, A 




1531 







1532 

;PUT 

TEMP TBL 

, IR EXTERNAL RAM TEMP LOCATIONS 



1533 





03E7 

B920 

1534 


MOV 

R1,#IMB0T 


03E9 

B880 

1535 


MOV 

R0,#RGPTR 


03EB 

80 

1536 


MOVX 

A,«R0 

;GET <R0> 

03EC 

BF05 

1537 


MOV 

R7,^«f5 


03EE 

03FG 

1538 


ADD 

A,#<-4) AND 0FFH 

03F0 

A8 

1539 


MOV 

R0,A 




1540 

Eina: 




03F1 

F8 

1541 


MOV 

A,R0 


03F2 

537F 

1542 


ARL 

A,^7FH 


03F4 

A8 

1543 


MOV 

R0,A 


03F5 

FI 

1544 


MOV 

A,@R1 


03F6 

90 

1545 


MOVX 

0E0rA 


03F7 

19 

1546 


IRC 

RI 


03F8 

18 

1547 


INC 

H0 


03F9 

EFFl 

1548 


DJRZ 

R7tERT2 




1549 







1550 

; IF USER INT 

FLAG a TRUE THEN 

PLACE CPU IN AN 



1551 

; IITTEBRUPT SERVICE STATE 




1552 





03FB 

BSCS 

1553 


MOV 

R05^IOPTR+3 


03FD 

B9S7 

1554 


MOV 

ai,^DICRT 


03FF 

80 

1555 


MOVX 

A,@R9 

;GET IRT FLAG 

0400 

37 

1556 


GPL 

A 


0401 

9206 

1557 


JB4 

ERT4 

; IF NO RESTING 

0403 

27 

1558 


CLR 

A 


0404 

A1 

1559 


MOV 

@E1»A 


0405 

05 

1560 


ER 

I 

;S/B RESTED 


1561 Einr4: 

1562 



ISIS- 1 1 jh:s-48/tjpi-4i imciso ASSEHffljaa, 

V2.0 PAGE 23 


PROaPT-48 SIfSTEH MONITOR V3.Q 6iaH2 



LOG OBJ 

sm 

SOURCE 

STATEMSRT 



1563 

; IF USER Iirr FLAG « TRUE TBDEIT ERABLE EXT IITIEBRUFIS 



1564 




0406 7209 

1565 

JB3 

EHT10 ? IF IHT DISABLED 


0408 05 

1566 

ER 

I 



1567 

ERTIO: 




1568 





1569 

;SET P2 MAP AHD PI SIMULATOR 



1570 



1 

0409 B8DB 

1571 

MOV 

R0, ^P2PTR 


O40B 80 

1572 

MOVX 

A,®R0 ;GET P2 MAP 


O40C 9AF0 

1573 

AWL 

P2, ^MSKPG 


O40£ 8A08 

1574 

ORL 

P2,#]^1EI0U 


0410 B809 

1375 

MOV 

R0,^KBDAT 


0412 90 

1576 

MOVX 

ORO,A ;SET P2 MAP 


0418 B808 

1577 

MOV 

R0,#P0UR 


0415 27 

1578 

GLR 

A 


0416 90 

1579 

MOVX 

®R0,A ; DISABLE REFRESH IRTERRUPTS 


0417 9AF0 

1580 

AWL 

P2,#MSKPG 


0419 SAOl 

1581 

ORL 

P2,^MEPG1 



1582 





1583 

; RESTORE IirTERRAL REG 



1584 




04 IB BA8D 

1585 

MOV 

R2,^3DH 


04 ID B8BF 

1586 

MOV 

RO,^RGTOP 


04 IF B93F 

1587 

MOV 

R1,#IMT0P 



1588 

EKTS: 

- 


0421 80 

1589 

MOVX 

A,@R0 


0422 A1 

1590 

MOV 

QR1,A 


0423 C8 

1591 

DEC 

R0 


0424 C9 

1592 

DEC 

R1 


0425 £A21 

1593 

DJNZ 

R2,ERT5 


0427 80 

1594 

MOVX 

A.ORO 


0428 A1 

1595 

MOV 

®R1,A 



1596 





1597 

1 RESTORE TIJIER 



1598 


- 


0429 B9Ca 

1599 

MOV 

Rl.^IOPTR+3 


042B B8G1 

1600 

MOV 

R0,^RGTOP-»'2 


042D 81 

1601 

MOVX 

A,@R1 


042E 37 

1602 

CPL 

A 


042F 65 

1603 

STOP 

TCRT 



1604 





1605 

5 IF CRT WAS ROHR INC THEN TIMER * TIMER 



1606 




0430 F235 

1607 

JB7 

ERT15 


0432 45 

1608 

STRT 

CRT 


0433 8442 

1609 

JMP 

ENTll 



1610 





1611 

? IF TII-ffiR WAS 

ROT RURRIRG TBDSR TIMER = TIMER 



1612 





1613 

EHTIS? 



0435 D242 

1614 

JB6 

ERTll 



1615 





1616 

; IF TIMER WAS 

RURRIRG THER 



1617 




0437 55 

1618 

STRT 

T 


0438 80 

1619 

MOVX 

A,«R0 


0439 53FE 

1620 

ARL 

A, #0FEH 



1621 





1622 

; IF TIMER < 2 

THER TIMER = 0 ELSE 



1623 




043B C643 

1624 

JZ 

ERT13 



1625 





1626 

; TIMER = TIMER - 2 



1627 




043D 80 

1628 

MOVX 

A, @R© 


043£ 03FE 

1629 

ADD 

ARD 0FFH 


0440 8443 

1630 

JMP 

Eirris 



1631 

ERTll? 



0442 80 

1632 

mvK 

A,0R0 ;CET <TIKER> 



1633 

ERT13: 



0443 62 

1634 

MOV 

T,A 



1635 






ISIS- 1 1 MCS-4a/'tiPI-41 MACBO ASSEHBLEH, V2.0 PA<® 24 

PBDIlPT-4a SYSTEH SIOIIITOR V3.0 6I1HZ 


LOG 

OBJ 

SEa 

SOURCE 

STATEMENT 




1636 iWC SP 

Aim PLACE IBER PC OR STACK 



1637 





0444 

18 

1638 

IRC 


RO 


0443 

80 

1639 

MOVX 


A,@R0 

;GET PSV 

0446 

A9 

1640 

MOV 


R1,A 


0447 

5307 

1641 

ARL 


A,^7H 


0449 

E7 

1642 

RL 


A 


044A 

0308 

1643 

AOD 


A, #8 


044C 

29 

1644 

RCH 


A,R1 


0440 

At 

1643 

MOV 


QR1«A 


044E 

18 

1646 

IRC 


RO 


044F 

80 

1647 

MOVX 


A,®RO 

;GET PCL 

0430 

21 

1648 

XCH 


A,0R1 

; PLACE ON STACK * 

0431 

19 

1649 

.INC 


R1 


0432 

A1 

1630 

mv 


€fRl,A 


0433 

18 

1651 

IRC 


RO 


0434 

80 

1652 

MOVX 


A,@RO 

;GET PCH 

0453 

21 

1653 

XCH 


A,©R1 

; PLACE PCH ON STACK 

0436 

31 

1654 

XCHO 


A,©R1 


0437 

A1 

1653 

1636 

MOV 


@R1,A 




1657 ;Pirr <A> IN B31 





1658 





0453 

B8C0 

1659 

MOV 


R0,^RGT0P+1 


045A 

80 

1660 

MOVX 


A,@R0 

;GET <A> 

043B 

05 

1661 

SEL 


RBI 


043C 

AF 

1662 

MOV 


R7,A 


0430 

C5 

1663 

1664 

SEL 


RBO 


03F0 


1663 IHTJSO 

mv 


03F0H 

5 ENTRY POINT FOR RBO,MBO 

03F4 


1666 IHXJSl 

mv 


03F4H 

; ENTRY POINT FOR RBUMBO 

03F8 


1667 IN0S2 

mv 


03F8H 

?ENTRY POINT FOR RB0,MB1 

03FG 


1668 INTJS3 

1669 

ECU 


03FCH 

; ENTRY POIIfT FOR RB1,MB1 



1670 ;OETEBMINE ElfTRY VECTOR FOR MEM BARES 



1671 





043E 

68C8 

1672 

MOV 


R0,#IOPTR+3 


0460 

80 

1673 

MOVX 


A,®Rd 

?GET PORTS 

0461 

32A2 

1674 

1675 

JB2 


MBIVE 




1676 ; RESTORE MORE 

REG AND DETERMINE 

ENTRY VECTOR 



1677 

1678 M30VE: 





0463 

B880 

1679 

MOV 


RJ0,#RGPTR 


0463 

80 

1680 

MOVX 


A,©RO 

?GET <R0> 

0466 

03FC 

1681 

ADD 


A, ^(-4) AND OFFH 


0466 

A9 

1682 

MOV 


R1,A 


0469 

537F 

1683 

ARL 


A,#7FH 


046B 

Aa 

1684 

MOV 


RO,A 


046C 

19 

1683 

IRC 


R1 


0460 

19 

1686 

IRC 


R1 


046E 

80 

1687 

MOVX 


A,©EO 

?CTT <PSW^ 

046F 

18 

1688 

IRC 


R0 

; POINT TO MACHINE STATE 

0470 

28 

1689 

XCH 


A,RO 


0471 

537F 

1690 

ARL 


At^7FH 


0473 

28 

1691 

XCH 


A,R0 


0474 

07 

1692 

MOV 


PSV,A 


0475 

C5 

1693 

SEL 


RBO 


0476 

9280 

1694 

JB4 


ERTa 

;tlSER IS tJSING RBI 

0478 

SO 

1695 

MOVX 


A,@a0 

;GET MACHINE STATE 

0479 

A8 

1696 

MOV 


R0,A 


047A 

F9 

1697 

MOV 


A^Rl 

;CET USER <R0> 

047B 

28 

1698 

XCH 


A<RO 


047C 

9AF0 

1699 

ARL 


P2,^MSEPG 


047E 

SAGS 

1700 

ORL 


P2,^miOU 


0489 

B9GB 

1701 

MOV 


Rl, i^MCHST 


0482 

91 

1702 

1703 

MOVX 


@R1,A 

; OUTPUT STATE 



1704 jFIRISH REG MB 

FORT RESTORE 




1705 





0483 

80 

1706 

MOVX 


A,@R0 

;GET <R1> 

0484 

A9 

1707 

MOV 


R1,A 


0485 

18 

1708 

IRC 


RO 




ISIS-II I1CS-48/T3FI-41 MAC®0 ASSISIBLER, V2.0 PACE 25 

PR0I1PT-48 SYSTEH MDSTITOR V3.0 6I1HZ 


LOG 

OBJ 

SEO 


SOURCE 

STATEMENT 


0486 

80 

1709 


HOVX 

A,<3H0 

;GET <P2> 

0487 

3A 

1710 


OUTL 

P2,A 


0488 

18 

1711 


IRC 

R0 


0489 

80 

1712 


HOVX 

A,@R0 

;GET R31 

048A 

05 

1713 

1714 


SEL 

RBI 




1715 

;G0 TO 

T3SER PROGRAM AT VECTOR FOR RBO 



1716 





048B 

64F0 

1717 

1718 

ERT8: 

JMP 

IRUS0 


048D 

80 

1719 


MOVX 

A«0R0 

;GET MACHINE STATE 

048E 

AS 

1720 


MOV 

R0,A 

;GjET USER <H0> 

048F 

F9 

1721 


MOV 

A.Rl 

0490 

28 

1722 

1723 


XGH 

A.RO 




1724 

; WITE 

PIACHIRE STATE 




1725 





0491 

9AF0 

1726 


ARL 

P2,^MSICPC 


0493 

8A08 

1727 


ORL 

P2,^MEI0U 


0495 

B90B 

1728 


MOV 

R1 , #MCHST 


0497 

91 

1729 

1730 


MOVX 

ORU A 

; OUTPUT STATE 



1731 

? FINISH REG ARB PORT RESTORE 




1732 





0498 

80 

1733 


MOVX 

A^@R0 

5 GET <R1> 

0499 

A9 

1734 


MOV 

R1,A 


049A 

13 

1735 


IRC 

R0 


049B 

80 

1736 


MOVX 

A,@a0 

5GET <P2> 

049G 

3A 

1737 


OUTL 

P2,A 


0490 

18 

1738 


IRC 

R0 


049E 

80 

1739 


MOVX 

A,0R0 

j'gET <R31> 

049F 

05 

1740 

1741 


SEL 

RBI 




1742 

;G0 TO 

USER PROGRAM AT ENTRY VECTOR FOR RBI 



1743 





04A0 

64F4 

1744 

1745 

HBlVEt 

JMP 

IRUSl 


04 A2 

B880 

1746 


MOV 

RO,#RGPTR 


04A4 

80 

1747 


MOVX 

A,@R0 

iGET <R0> 

04A5 

03FC 

1748 


ABB 

A,#(-4)ARB 0FFH 


04A7 

A9 

1749 


MOV 

R1,A 


04A8 

537F 

1750 


ARL 

A, #7FH 


04AA 

Aa 

1751 


MOV 

R0,A 


04AB 

19 

1752 


IRC 

R1 


04AC 

19 

1753 


INC 

R1 


04AD 

80 

1754 


MOVX 

A,0R0 

;GET <PSV> 

04 AE 

18 

1755 


IRC 

R0 

5 POINT TO MACHINE STATE 

04AF 

28 

1756 


XCH 

A,R0 


04B0 

537F 

1757 


ARL 

A, ^7FH 


04B2 

28 

1758 


XCH 

A,R0 


04BO 

07 

1759 


MOV 

PS¥,A 


04B4 

G5 

1760 


SEL 

RB0 


04B5 

92CC 

1761 


JB4 

ERT8A 

;USER IS USING RBI 

04B7 

80 

1762 


MOVX 

A,@R0 

;GET MACHINE STATE 

04B3 

A8 

1763 


MOV 

R0»A 


04B9 

F9 

1764 


MOV 

A,R1 

5 GET USER <R0> 

04BA 

28 

1765 


XCH 

A,R0 


04BB 

9AF0 * 

1766 


ARL 

P2.^MSXPG 


O4B0 

8A08 

1767 

• 

ORL 

P2,^MI0U 


04BF 

B90B 

1768 


MOV 

R1 . ^MCHST 


04G1 

91 

1769 


MOVX 

0R1,A 

; OUTPUT STATE 


1770 

1771 ;FIITISH REG ARD PORT RESTORE 

1772 


04C2 SO 

1773 

MOVX 

A,@RO 

;GET <R1> 

04C3 A9 

1774 

MOV 

R1,A 


04C4 18 

1775 

IRC 

R0 


04C5 80 

1776 

MOVX 

A,^R0 

;GET <P2> 

04C6 3A 

1777 

OUTL 

P2,A 


04C7 18 

1773 

IRC 

R0 


04C3 80 

1779 

MOVX 

A,@E0 

;GET R31 

04C9 05 

1780 

SEL 

RBI 



1781 



ISIS- 1 1 MqS-48/TJPI-41 M4CaO ASSEMBLER, 72.0 
PBOMPT-48 SYSTEM MOKITOR V3.0 4MHZ 
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LOG 

OBJ 

SEa 

SOUBCE STATEMEITT 




1782 

;G0 TO USER PROGRAM AT VECTOR FOR RB0 



1783 




04GA 

64F3 

1784 

JMP 

IRUS2 




1785 

EITTSA: 



04GC 

80 

1786 

MOVE 

A,0R0 

{GET MACHINE STATE 

04CI> 

A8 

1787 

MOV 

R0,A 


04G£ 

F9 

1788 

MOV 

A,R1 

{GET USER <R0> 

04CF 

28 

1789 

XGH 

A,R0 




1790 






1791 

;^ITE MACHIIfE 

STATE 




1792 




04D0 

9AF0 

1793 

ANL 

P2,^MSEPG 


04D2 

8A0a 

1794 

ORL 

P2,^MEI0U 

, 

04I>4 

B90B 

1795 

MOV 

R1,#MCHST 


04D6 

91 

1796 

MOVX 

0R1,A 

; OUTPUT STATE 



1797 






1798 

iF IRISH REG Am PORT RESTORE 




1799 




04D7 

80 

1800 

MOVX 

A,@R0 

{GET <R1> 

04D8 

A9 

1801 

MOV 

R1,A 


04D9 

18 

1802 

IRC 

R0 


04DA 

80 

1803 

MOVX 

A,@R0 

{GET <P2> 

04DB 

3A 

1804 

OUTL 

P2,A 


04BG 

18 

1805 

IRC 

RO 


04DD 

80 

1806 

MOVX 

A,@R0 

{GET <P0 OR R31> 

04D£ 

D5 

1807 

SEL 

RBI 




1808 






1809 

;G0 TO USER PROGRAM AT ERIRY VECTOR FOR P31 



1810 




04DF 

64FC 

1811 

JMP 

IRUS3 




1812 


• 




1813 





1814 

; COMPARE PROM 





1815 

;THE PROM DATA 

SPECIFIED WILL 

BE COMPARED AGAINST PROGRAM 



1816 

{MEMORY AITD AHY DIFFEREHCES WILL BE DISPLAYED. 



1817 

• 





1818 

COMPARE: 



04E1 

F5 

1819 

SEL 

MBl 


04E2 

24E3 

1820 

JMP 

COMPX 




1821 






1822 





1823 

; FETCH PROM: - 





1824 

;THE PROM DATA 

SPECIFIED WILL 

BE TRANSFERRED TO THE PROGRAM 



1825 

; MEMORY FOR VERIFICATIOR/MODIFICATIOR. 



1826 

• 

f 





1827 

FETCH: 



04E4 

F5 

1828 

SEL 

MBl 


04E5 

0400 

1829 

JMP 

FETDT 




1830 






1831 

1 

• 

1 

1 

t 

1 

1 

1 

1 

1 




1832 

; CLEAR BUFFER : 

- 




1833 

{THIS GOfIMARD IS USED TO CLEAR THE EXTSRRAL DATA, PROGRAM OR 



1834 

{BUFFERS PRIOR TO PROM PROGRAMMIRG ETC. 



1835 

{(ROTE THAT THIS COMIARD WILL 

INVALIDATE ANY 



1836 

{PROGRAM OR DATA VHICH HAS BEER SAVED IN THE EXTERNAL 



1837 

{BUFFERS.) 





1838 

? 





1839 

CLEAR: 



04EZ 

F5 

1840 

SEL 

MBl 


04E8 

5481) 

1841 

CALL 

GEXTY 


04EA 

74B6 

1842 

CALL 

G2PRM 


04EC 

I)49F 

1843 

CALL 

WRKIA 




1844 

CLRRX: 



04EE 

BC00 

1845 

MOV 

R4,^0 


04FO 

D408 

1846 

CALL 

STOI^ 

{CLEAR A BYTE 

04F2 

B4FD 

1847 

CALL 

irwrk: 

{ INC ADDRESS 

04F4 

B452 

1S4S 

CALL 

Gl^l 




1849 






1S5© 

; IF WORK ADDRESS > OPPEM LIMIT THEH ALL DOHE 



1851 




04F6 

F6EE 

1852 

JC 

CLRRX 

{NOT DONE , DO NEXT BYTE 

04F8 

E5 

1853 

SEL 

mo 


04F9 

2451 

1854 

JMP 

CrIDLV 

; ALL DONE 



isis-n Mcs-4e/tjpi-4i pmcRo ASsmmLm. v 2 .o paci; 27 

PR0MPT-48 SYSTEM HOJfITOR V3.0 6MHZ 

LOG OBJ SEO SOURCE STATEMEUTT 

1855 

1856 ; 

1857 ;THIS ROUTINE ALLOWS THE USER TO SPECIFY THE 

1858 ;BIT BY BIT DIRECTION OF P2. EITHER OF THE 3 

1859 5 BITS MAY BE ASSIGNED AS INPUT OR OUTPUT. 

1860 ; 

1861 P2DEF: 

04FB BAFF 1862 MOV R2,^0FFH 

04FD 23DB 1863 MOV A,#P2PTR 

04FF A42S 1864 JJIP ACCS 

1865 

1866 

1867 {PROGRAM/VERIFY (BURN): - 

1868 ;THIS COMMAND INITIATES THE PROM PROGRAMMING. THE 

1869 ; PROGRAM mMORY SPECIFIED WILL BE PROGRAJIMED INTO THE 

1870 ;PROM. AND SHOULD BE SUITABLY MODIFIED BEFORE 

1871 ; EXECUTION OF THIS COMMAND. 

1872 ; 

1873 ; PROGRAM 8748 

1874 PROMP: 


0501 

F5 

1875 

SEL 

MBl 



0502 

B964 

1876 

PIOV 

R1 , ^P48TBL 

AND 

0FFH 

0504 

D44B 

1877 

CALL 

MESG 



0506 

14F4 

1878 

CALL 

CKD 



0508 

320D 

1879 

1830 PRB: 

JBl 

PRA 



050A 

E5 

1881 

SEL 

M30 



050B 

04FE 

1882 

188a PRA: 

JMP 

ERROR 



050D 

27 

1884 

CLR 

A 



050E 

04FC 

1385 

JMP 

PBPRO 





1886 ; PROGRAM 8755-8751 





1887 PROPS: 


* 



0510 

F5 

1888 

SEL 

MBl 



0511 

B95F 

1889 

MOV 

R1,#P41TBL 

AND 

0FFH 

0513 

D44B 

1890 

CALL 

MESG 



0515 

B901 

1891 

MOV 

R1,#D8741 



0517 

14F4 

1892 

CALL 

CKD 



0519 

3221 

1893 

JBl 

PRC 



05 IB 

B969 

1894 

MOV 

R1,^P55TBL 

AND 

0FFH 

05 ID 

D44B 

1895 

CALL 

MESG 



05 IF 

B902 

1896 

1897 PRC: 

MOV 

R1 , ^D8755 



0521 

F9 

1898 

MOV 

A,R1 



0522 

04FC 

1899 

JMP 

PRPRO 




1900 

1901 ; 

1902 ;THIS ROUTINE ALLOWS THE USER TO SPECITY THE 

1903 amCHINE HAJRDWARE CONFIGURATION. 

1904 ; 

1905 ACCES: 


0524 

BA05 

1906 

MOV 

R2,#5 

0526 

23D9 

1907 

1908 ACCS: 

MOV 

A,#AXPTO 

0528 

B82A 

1909 

MOV 

R0,^BASEL 

052A 

F5 

1910 

SEL 

MBl 

052B 

B49B 

1911 

CALL 

SETPl 

052D 

27 

1912 

CLR 

A 

052E 

A9 

1913 

MOV 

R1,A 

052F 

FA 

1914 

MOV 

A,R2 

0530 

B834 

1915 

PIOV 

RO,^UPLML 

0532 

B4A3 

1916 

1917 

GALL 

PRSET 



1918 ; DISPLAY OLD DATA AND GET NEW DATA 



1919 

1920 ACCS: 



0534 

54FA 

1921 

1922 

CALL 

EI’ISBG 



1923 ; IF DELIMITER » 

CLEAR ENTRY THEN ABORT 



1924 



0536 

324G 

1925 

JBl 

ACCl 


1926 

1927 ? IF HO DATA ENTERED THEN EXIT 



IS IS- 1 1 MCS-48/OTI-41 MCB0 ‘ASSEISBLER, V2.0 
PROMPT-48 SYSTEM MONITOR VS.O 6MH2 


FACE 28 


LOC OBJ 


SOURCE STATEMENT 


0533 E64C 


053A FC 
053B AA 
053G 53EF 
053E AG 
053F 27 

0540 AD 

0541 B45d 
0543 F648 

0545 E5 

0546 04FE 

0548 FA 

0549 AC 


; IF DATA > UPPER LIMIT THEN ERROR 

MOV A,R4 

MOV B2.A 

ANL A,^0EFH 

MOV R4,A 

GLR A 

MOV R5,A 

CALL C45UL 

JC ACC2 


ACC4: 


ACC2: 


MBO 

ERROR 


; STORE NEV DATA 


054A D408 

054C E5 
054D 2451 


ACCl: 


STOWK 

MBO 

COTLV 


;MOVE MEMORY : - 
;MOVE A BLOCK OF MEMORY. 

;THIS ROUTINE EXPECTS THREE HEXADECIMAL PARAMETERS FROM THE 
? FRONT PANEL. THE FIRST AND SECOND PARAMETERS ABE THE BOUNDS OF 
;THE MEI^IORY AREA TO BE MOVED, THE THIRD PARAMETER IS THE 
.•STARTING ADDRESS OF THE DESTINATION AREA. 


054F F5 
0550 548D 
0552 74BA 
0554 D49F 
0556 B82F 
0558 D4A1 


MOVE: 


MBl 

GEXTY 

G3PRM 

VRKIA 

R0,^>/RK2H 

UREA 


055A A5 
055B Ba2E 
055D B932 
055F B462 
0561 F692 


? CHECK IF MOVING UP OR DOW 

CLR FI 

MOV R0,#WRK2L 

MOV R1 , #¥RKL 

CALL CKDBL 

JC MVS 


?MOVE DOUN 


0563 B5 


? CHECK IF MOVE BLOCK WILL GO OVER MEM TOP 


;R4,5 = WRKl 


0564 B830 
0566 B904 
0568 B488 


MOV R0,#I^RK1L 

MOV R1 , #4 

CALL MVREG 


;R4,5 * WRKl - WRK 


056A B804 
056C B932 
056E 94D6 


ai , ^IvBKL 
SUDBL 


0570 BS04 
0572 B92E 
0574 94DA 


;R4,5 = WRK2 + <URKl - WRiD 

MOV R0 , ^4 

MOV R1,^I^HK2L 

GALL ADDBL 
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LOC 

OBJ 

SEa 


SOURCE 

STATEMEHT 




2001 

; ADJUST DESTIRATIOR ADDR TO UPPER DEST ADDR 



2002 

2000 

;TflRK2 a 

VBK2 + 

(WRKl • WRK> 


0576 

B804 

2004 


MOV 

R0,^4 


0573 

B92E 

2005 


MOV 

RU^WRK2L 


057A 

B488 

2006 


CALL 

MVBEG 


057C 

B458 

2007 


CALL 

C45UL 


057E 

F692 

2008 

2009 


JC 

MV3 

;SIZE + DESTINATION < UPPER LIMIT 



2010 

; ADJUST UPPER BLOCK PTR SO TBAT SIZE WILL NOT GO OVER MEM TOP 



2011 

;R4,5 « 

OVERFLOW 




2012 





0580 

B304 

2013 


MOV 

R0,^4 • 

. 

0582 

B934 

2014 


MOV 

R1,#UPLML 


0584 

94D6 

2015 


CALL 

SUDBL 




2016 

2017 

2018 

imKl - 

WRKl - 

OVERFLOW 


0536 

B8C0 

2019 


MOV 

R0,#lfRKlL 


0583 

B904 

2020 


MOV 

Rl,#4 


058A 

94D6 

2021 


CALL 

SUDBL 




2022 

2023 

2024 

;yBK2 = 

W11K2 - 

OVERFLOW 


053C 

B82E 

2025 


MOV 

R0,^WRK2L 


05 3£ 

B904 

2026 


MOV 

Rl,^4 


0590 

94D6 

2027 


CALL 

SUDBL 




2028 







2029 

;GET MOVE DATA 




2030 

2031 

MV3: 



i 

0592 

B830 

2032 


MOV 

R0,#1*?RK1L 


0594 

B4AA 

2033 


CALL 

FEXDA 


0596 

AC 

2034 


MOV 

R4,A 


0597 

769C 

2035 


JFl 

MVI 


0599 

B4A3 

2036 


CALL 

FEWBK 


059B 

AC 

2037 

2038 


MOV 

R4,A 




2039 

;STOBE 

MOVE DATA 




2040 

2041 

rivi: 




059C 

B82E 

2042 


?IOV 

R0,^WRK2L 


059E 

D40A 

2043 


CALL 

SEXDA 


05 AO 

76B2 

2044 

2045 


JFl 

MV2 

i IF MOVING UP 



2046 

;I]!rC POINTEBS 

FOR MOVIHC DOWN 




2047 





05A2 

B4FD 

2048 


CALL 

INWRK 


05A4 

B62E 

2049 


MOV 

R0.^t/RK2L 


05A6 

B4FF 

2050 

2051 


CALL 

INDBL 




2052 

; CHECK 

IF DONE 




2053 

2054 

MVS: 




05 A3 

F5 

2055 


SEL 

MBl 


05A9 

B452 

2056 


CALL 

CWKWl 


05 AB 

F2AF 

2057 


JB7 

MV4 


05AI) 

F692 

2058 

2059 

MV4: 

JC 

MV3 

; NOT DONE 

05 AF 

E5 

2060 


SEL 

m0 


05Bs9 

2451 

2061 

2062 


JMP 

GMDLV 

5 ALL DONE 



2063 

tDEc poiirrEBS 

FOR MOVIRG DOWN 




2064 

2965 

MV2: 




05B2 

BFOl 

2066 


MOV 

R7,^l 


05B4 

BS30 

2067 


MOV 

R0,^WTIK1L 


05B6 

B479 

2068 


CALL 

DEDBL 


05£8 

BFOl 

2069 


MOV 

R7,^l 


05BA 

BS2E 

2070 


MOV 

R9,^T'?BK2L 


05EC 

B479 

2071 


CALL 

DEDBL 


05BE 

E5 

2072 


SEL 

HBO 


05BF 

A4AS 

2073 


JMP 

MVo • 
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PACE 00 


LOC OBJ 


SEO SOURCE STATEMEirr 


eUGl D5 
05C2 AF 
05C0 OA 
05G4 A£ 
05G5 B808 
05C7 B907 
05C9 FI 
05CA 96CF 
05CC FF 
05C0 C5 
05GE 80 

05CF AA 
05U9 AB 
0501 B906 

0503 FI 

0504 77 

0505 EB04 
0507 5380 
0509 37 
050A AB 
05BB B910 
0500 FA 
05DE 68 
050F AS 
05E0 FA 
05E1 69 
05E2 A9 
05E3 C8 
05E4 €9 
05E5 9AF0 
05E7 8A08 
05E9 F0 
05EA 5B 
05EB 91 
05EG EAF0 
05EE BA08 

05F0 FA 
05F1 B937 
05F3 A1 
05F4 FE 
05F5 3A 
05F6 FF 
05F7 93 


2074 

2075 ? 

2076 i^XnmALLY REFERENCE0 ROUTINE 

2077 ; BISPLAY REFRESH 0RIVER 

2078 {THIS ROUTINE IS INTERUPT 0RIVEN. REG BANK 1 IS USE0 AS 

2079 {SCRATCH PAD. TOEN ENTERED THIS ROUTINE WILL IfRITE ONE 

2080 {7 SEGMENT CHARACTOR TO THE DISPLAY, UPON EACH 

2081 {INTERUPT A 0IFFERANT DIG POSITION IS UPDATED 

2082 {UNTIL ALL DIGITS HAVE BEEN SCANED. 


2083 

5 



2084 

{REG USED: A,R24-R26,R30,R31 .P2 

2085 

{REG MODIFIED: 

R24-R26,R30,R31.P2 

2086 

{NESTING: 0 


2087. 

{ 



2088 

REFSH: 



2089 


SEL 

RBI 

2090 


MOV 

R7,A {SAVE <A> 

2091 


IN 

A,P2 

2092 


MOV 

R6,A {SAVE <P2> 

2093 


MOV 

R0,#DIPTR 

2094 


MOV 

Rl,^DICNT {LAST COUNT 

2095 


MOV 

A,QR1 {GET COUNT 

2096 


JNZ 

REF2 

2097 


MOV 

A,R7 

2098 


SEL 

RBO 

2099 


RET 


2100 

•• 

Cl 



2101 


MOV 

R2,A {SAVE COUNT 

2102 


MOV 

R3,A 

2103 


MOV 

R1 , #DPMSK 

2104 


MOV 

A,QRl 

2105 

BEF3: 



2106 


RR 

A 

2107 


0JNZ 

R3,REF3 

2108 


ANL 

A,^80H 

2109 


GPL 

A 

2110 


?IOV 

R3,A 

2111 


MOV 

R1,#DG0PT 

2112 


MOV 

A,R2 

2113 


ADD 

A.R0 {COMPUTE DIPTR 

2114 


MOV 

R0,A 

2115 


MOV 

A.R2 

2116 


ADD 

A,R1 {COMPUTE DIG PTR 

2117 


MOV 

R1,A 

2118 


DEC 

R0 

2119 


DEC 

R1 

2120 


ANL 

P2,^MSKPG 

2121 


ORL 

P2,^MEI0U 

2122 


MOV 

A,@R0 {GET CHAR 

2123 


ANL 

A,R3 

2124 


MOVE 

@R1 , A ; OUTPUT CHAR 

2125 


DJNZ 

B2,REF1 {POINT TO NEXT DIG 

2126 


MOV 

R2,^8 {SET PTR BACK TO START 

2127 

REFl: 



2128 


MOV 

A,R2 {GET NEW COUNT 

2129 


MOV 

R1,^DICNT 

2130 


MOV 

@R1,A { SAVE COUNT 

2131 


MOV 

A,R6 

2132 


OUTL 

P2,A {RESTORE P2 VALUE 

2133 


MOV 

A,R7 {RESTORE <^\> 

2134 


RETR 


2135 




2136 



' 3f* S(C“* 315'^ Jfi* ^ ^ 

2137 

» 



2133 

{END OF 

MONITOR COMMANDS, BEGIN INNG OF I/O SUBROUTINES 

2139 

» 



2140 

4 

1 

1 



2141 

{PUNCH 

A BYTE AS Tt^O ASCII CHARACTEP«S 

2142 

; 



2143 

{REG USED: A,RO 

-R4,R24,R23,R31,P2 


2144 ;REG NODIFIED: A,R0,R4,R24, R25,RS1 ,P2 

2145 {NESTING: 1 

2146 ? 



31 
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PR0MPT-4a StSTEM mHITOR V3,0 62122 



LOG 

OBJ 

SEO 

SOURCE 

STATEMENT 




2147 

PBYTE: 



05F8 

FC 

2148 

MOV 

A,R4 


05F9 

F5 

2149 

SEL 

MBl 


05FA 

D410 

2150 

CALL 

PUSH 


03FC 

E5 

2151 

SEL 

MBO 


05FD 

47 

2152 

SWAP 

A 


05FE 

330F 

2133 

AJJTL 

A, ^OFH 


0600 

AG 

2154 

MOV 

R4,A 


0601 

D4E7 

2155 

CALL 

CONV 

; CONVERT HEX TO ASCII 

0603 

F4AD 

2156 

CALL 

TYPO 

; PUNCH HI NIBBLE 

0605 

F5 

2157 

SEL 

MBl 


0606 

D422 

2158 

CALL 

. POP 


0608 

E5 

2159 

SEL 

MBO 


0609 

530F 

2160 

ANL 

A,«^0FH 


0608 

AC 

2161 

MOV 

R4,A 


060C 

D4E7 

2162 

CALL 

CONV 

; CONVERT HEX TO ASCII 

O60E 

F4AD 

2163 

CALL 

TYPO 

; PUNCH LOW NIBBLE 

0610 

F3 

2164 

SEL 

MBl 


0611 

D422 

2165 

CALL 

POP 

. 

0613 

£3 

2166 

SEL 

MBO 


0614 

B826 

2167 

MOV 

R0,^CXSUM 


0616 

60 

2168 

ADD 

A, @R0 

{UPDATE CHECKSUM 

0617 

AO 

2169 

MOV 

@R0 , A 

{SAVE 

0618 

83 

2170 

RET 





2171 






2172 






2173 

;E3rrERl!rALLY REFERENCED ROUTIITE 




2174 

; CONSOLE OUTPUT CODE, VALUE EXPECTED IN R4 



2175 

f 





2176 

;REG USED: A,R0,P2 




2177 

;BEG MODIFIED: 

A,R0,P2 




2178 

;HESTirrG: 0 





2179 

5 





2180 

TYCO: 



0619 

8821 

2181 

MOV 

RO,#USACT 


06 IB 

OAF© 

2182 

ANL 

P2,^MSKPG 


06 ID 

8A08 

2183 

ORL 

P2,#MEI0U 




2184 

€01: 



06 IF 

80 

2185 

MOVX 

A, @R0 

{ IHPUT CONSOLE STATUS 

06:io 

3301 

2186 

ANL 

A,#TRDY 

{TEST FOR TRANSMITTER BEADY 

0622 

C61F 

2187 

JZ 

COI ; CONTINUE TO CHECK STATUS UNTIL RE 




ADY 



0624 

FC 

2188 

MOV 

A,R4 

{LOAD CHARACTER 

0625 

BS2© 

2189 

MOV 

R0,#USADA 


0627 

90 

2190 

MOVX 

@RO,A , 

{OUTPUT IT 

0628 

83 

2191 

RET 





2192 






2193 






2194 

? EXTERNALLY REFERENCED ROUTINE 




2195 

; HEADER IHPDT 

CODE 




2196 

; VALUE RETURNED IN A 




2197 

5 





2198 

jREG USED: A,R0-R3,P2 




2199 

;REG MODIFIED: 

A,R0-R3,P2 




2200 

; NESTING: 2 





2201 

* 





2202 

TYRI: 



0629 

F3 

2203 

SEL 

MBl 


062A 

74AA 

2204 

CALL 

CKASIO 


062G 

E5 

2205 

SEL 

MBO 


062D 

C632 

2206 

JZ 

RIOS 


062F 

97 

2207 

CLR 

G 


0630 

C4Da 

2208 

JMP 

TYCI 




2209 

RI05: 



0632 

OAT© 

2210 

ANL 

P2,^MSKPG 


0634 

8A08 

2211 

ORL 

P2,^MEI0U : SELECT MEMORY MAPPED I/O 

0636 

BS21 

2212 

MOV 

R0,^USACT 


0633 

80 

2213 

MOVX 

A,@RO 

GET STATUS 

0639 

5304 

2214 

ANL 

A,^TXBE 

CK FOR TRANSMITTER BUFFER EMPTY 

063B 

G632 

2215 

JZ 

RX05 

TRY AGAIN IF NOT EMPTY 

063D 

2327 

2216 

MOV 

A, ^TADV 

TAPE ADVANCE 

063F 

90 

2217 

MOVX 

@R0,A ‘ 

OUTPUT ADVANCE C0MI14ND 

0640 

F4A© 

2218 

CALL 

DELAY 

DELAY 40 MS 
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LOG 

OBJ 

SEO 


SOURCE 

STATEMENT 


0642 

2325 

2219 


MOV 

A,#COMD 


0644 

90 

2220 


MOVX 

OR0,A 

(OUTPUT STOP COMMAND 

0645 

BBFA 

2221 

2222 

RI 10; 

MOV 

R3,^250 

(SET TIMER FOR .250 MS 

0647 

80 

2223 


mvx 

A, ®R0 

( INPUT READER STATUS 

0648 

5302 

2224 


ANL 

A,#RBDy 

(CK FOR RECEIVER BUFFER READY 

064A 

9654 

2225 


JNZ 

RIIU 

(DATA READY 

064G 

F4A8 

2226 


CALL 

DELI 

(DELAY 1 MS 

064E 

EB47 

2227 


DJNZ 

R3,RI10 

(TIMER NOT EXPIRED 

0650 

27 

2228 


CLR 

A 


0651 

97 

2229 


CLR 

C 


0652 

A7 

2230 


CPL 

C 

(READ ERROR 

0653 

83 

2231 

2232 

RI15; 

RET 



0654 

B820 

2233 


MOV 

R0,^USADA 


0656 

80 

2234 


MOVX 

A,@R0 

; INPUT DATA 

0657 

97 

2235 

2236 

RI20: 

CLR 

G 

(CLEAR ERROR FLAG 

0658 

83 

2237 


RET 




2238 

2239 ; 

2240 ; PUNCH LEADER ON TTY PUNCH 

2241 ; 

2242 ;REG USED: A,R0,R4,P2 

2243 ;REG MODIFIED: A,R0,R4,P2 

2244 5 NESTING: 1 




2245 

5 * 





2246 

LEAD: 



0659 

F5 

2247 


SEL 

MBl 

065A 

74AA 

2248 


CALL 

CKASIO 

065G 

E5 

2249 


SEL 

MB0 

065D 

€660 

2250 


JZ 

LEAD2 

065E 

83 

2251 

2252 

LEAD2; 

RET 


0660 

BF48 

2253 


MOV 

R7,#72 

0662 

BC00 

2254 

2255 

LEADl: 

MOV 

R4,#0 

0664 

F4AD 

2256 


CALL 

TYPO 

0666 

EF64 

2257 


DJNZ 

R7, LEADl 

0668 

83 

2258 

2259 


RET 




2260 

1 

1 

1 


i 

1 

1 


2261 ;READ TTY (ENTER): - 

2262 ;THIS ROUTINE READS A HEXADECIMAL FILE FROM THE TTY 

2263 ; READER DEVICE AND LOADS IT INTO MEMORY. ONE HEXADECIMAL 

2264 (PARAMETER IS EXPECTED. THIS PARAMETER IS A BASE ADDRESS 

2265 ;TO BE ADDED TO THE MEMORY ADDRESS OF EACH DATA BYTE ENCOUNTERED. 

2266 ;IN THIS NAY, HEXADECIMAL FILES MAY BE LOADED INTO MEMORY 

2267 ; IN ABEI^ OTHER THAN THAT FOR TVHICH THEY WRE ASSEMBLED. 

2268 ;ALL RECORDS READ ARE CHECKSUMIMED AND COMPARED AGAINST THE 

2269 (CHECKSUM IN THE RECORD. IF A CHECKSUM ERROR (OR TAPE READ ERROR) 

2270 (OCCURS, THE ROUTINE TAKES AN ERROR EXIT. NORMAL LOADING IS 

2271 (TERMINATED mm AN EOF RECORD IS ENCOUNTERED. 

2272 ; 

2273 READ; 

0669 F5 2274 SEL mi 

066A 548D 2275 CALL GEXTY 

066G 74B2 2276 CALL GlPRM (GET BIAS ADDRESS 

2277 

2278 (SAVE BIAS ADDRESS 

2279 

066E B927 2280 MOV Rl,#BIASL 

0670 B486 2281 CALL HV1145 

2282 READS; 

2283 

2284 (SCAN TO RECORD 

2285 

0672 E5 2286 SEL mO 

0673 D4CF 2287 CALL RTTY 

0675 03C6 2288 ADD A,^(-’:’ 

0677 9672 2289 JNZ READS 

2290 

2291 (CLEAR CHECKSUM 


) AND OFFH 
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LOC 

OBJ 

SEa 


SOURCE 

STATEMENT 




2292 





0679 

B826 

2293 


MOV 

R0,^CKSUM 


067B 

A0 

2294 


MOV 

0R0,A 


067C 

D4F5 

2295 


CALL 

RBYTE 

;GET RECORD LENGTH 

067E 

FC 

2296 


MOV 

A.R4 


067F 

G6B0 

2297 


JZ 

READ4 

;ZERO RECORD LENGTH* ALL DONE 

063 X 

AE 

2298 


MOV 

R6,A 

;R6 » RECORD LENGTH 

0682 

04F5 

2299 


CALL 

RBYTE 

;GET LOAD ADDRESS HI 

0684 

B833 

2300 


MOV 

R0 , 


0686 

FC 

2301 


MOV 

A,R4 


0687 

A0 

2302 


MOV 

@R0,A 


0688 

D4F5 

2303 


CALL 

RBYTE 

;GET LOAD ADDRESS LOW 

068A 

B832 

2304 


MOV 



068G 

FC 

2305 


MOV 

A,R4 


0680 

AO 

2306 


MOV 

€iR0, A 




2307 







2308 

;LOAD 

ADDRESS 

* LOAD ADDRESS + BIAS 



2309 





068E 

F5 

23X0 


SEL 

MBl 




23X1 







2312 

?(PTR1L/H) = <PTR1L/H) + (PTR2L/H) 



23X3 





068F 

B832 

23X4 


MOV 

R0,^NRKL 


0691 

B927 

2315 


MOV 

R1,^BIASL 


0693 

940A 

2316 


CALL 

ADDBL 


0695 

E5 

23X7 


SEL 

MB0 




23X8 

EEA06: 




0696 

04F5 

23X9 


CALL 

RBYTE 

; RECORD TYPE 



2320 

READS: 




0698 

04F5 

2321 


CALL 

RBYTE 

;READ DATA 

069 A 

F5 

2322 


SEL 

MBX 


069B 

B45E 

2323 


CALL 

C¥KUL 


0690 

E6B2 

2324 


JNC 

READ2 


069F 

Bd33 

2325 


MOV 

R0,^raKH 


06A1 

04 AX 

2326 


CALL 

WRSCA 


06 A3 

0408 

2327 


CALL 

STOWK 

; STORE DATA 

06 A5 

B4F0 

2323 


CALL 

INWK 

; INC LOAD ADDRESS 

06 A7 

E5 

2329 


SEL 

MB0 


06 A8 

EE98 

2330 


DJNZ 

R6, READS 

jLOOP TIL DONE 

06 AA 

D4F5 

2331 


CALL 

RBYTE 

5 READ CHECKSUM 

06 AC 

96B2 

2332 


JNZ 

READ2 

;CK SUM ERROR 

06 A£ 

C472 

2333 


JIIP 

READ3 

;GET ANOTHER RECORD 



2334 

BEA04: 




06B0 

245 X 

2335 


JMP 

CMDLV 

;ALL DONE 



2336 

READ2: 




06B2 

F5 

2337 


SEL 

MBl 


06B3 

9474 

2338 


CALL 

DAFLD 


06B5 

E5 

2339 


SEL 

mo 


06B6 

04FE 

2340 


JMP 

ERROR 




2341 







2342 







2343 

; DECODE ASCII 

CHAR IN <A> 

INTO HEX IN <A> 



2344 

t 






2345 

;REG USED: A 





2346 

{KEG MODIFIED: 

A 




2347 

;r(ESTING: 0 





2348 

« 






2349 

NIBBLE 

; 



06B8 

0300 

2350 


ADD 

A,^C-’0^) 

AND 0FFH 

06BA 

E6CC 

. 2351 


JNC 

NIBX 

;DIG < ’0* 

06BG 

03E9 

2352 


ADD 

A,^(C’0* - 

► ’^G’) AND 0FFH) 

06BE 

F6CG 

2353 


JC 

NIBX 

?DIG > ’F’ 

O6C0 

0306 

2354 


Ailll 

A, -^6 


06C2 

F6C8 

2355 


JC 

NIB2 

;DIG > 

06C4 

0307 

2356 


ADD 

A, ^7 


06C6 

F6CC 

2357 


JC 

NIBX 

;DIG > ’9’ 



2358 

NIB2: 




06CS 

0S0A 

2359 


ADD 

A,^0AH 


06CA 

97 

2360 


GLR 

C 


06GB 

83 

2361 


RET 

- 

;RETURN HEX NIBBLE 



2362 

NIBl: 




06CC 

97 

2363 


CLR 

G 


06CD 

A7 

2364 


CPL 

C 




ISIS- 1 1 MCS-48/TJPI-41 MACRO ASSEMBLER, V2.d 
PROMPT-48 SYSTEM MONITOR V3.0 6MH2 


PACE 34 


LOC 

OBJ 


SEO 

SOURCE STATEKEITT 


e6GE 

88 


2365 

RET 


-BETURN ERROR , NOT HEX DIG 




2366 







2367 







2368 

;OET CHAR FROM TTY MXD MASK OFF 

PARITY BIT 




2369 

? 






2370 

tREG USED: A,R0 

,R2,R3,P2 





2371 

;BEG MODIFIED: 

A,R0,R2,R3,P2 





2372 

? NESTING: 3 






2373 

5 






2374 

BTTY: 



06CF 

0429 


2375 

CALL 

TYRI 


06D1 .F606 


2376 

JC 

RTYl 

; IF READ ERROR 

06D3 

537F 


2377 

ANL 

A,^7FH 


0603 

88 


2378 

RET 






2379 

RTYl: 



0606 

04FE 


2380 

JMP 

ERROR 





2381 







2382 







2383 

! EXTERNALLY REFERENCED ROUTINE 





2384 

•.CONSOLE INPUT CODE, VALUE RETURNED IN A 




2385 

* 






2386 

;REG USED: A,R0 

,P2 





2387 

;REG MODIFIED: 

A,R0,P2 





2388 

; NESTING: 0 






2389 

* 






2390 

TYCI: 



0608 

B821 


2391 

MOV 

R0,#USACT 


06OA 

9AF0 


2392 

ANL 

P2,#MSKPG 


06OG 

8A08 


2393 

ORL 

P2,#MEI0U 





2094 

CIl: 



06BE 

80 


2395 

MOVX 

A,@RO 

; INPUT CONSOLE STATUS 

06OF 

5302 


2396 

ANL 

A.^RRDY 

; CHECK FOR RECEIVE BUFFER READY 

06E1 

C60E 


2397 

JZ 

CIl 

; CONTINUE TO CHECK STATUS UNTIL BD 





FFER FULL 



06E3 

B820 


2398 

MOV 

R0,^USADA 


06E5 

80 


2399 

MOVX 

A,OR0 

;READ THE CHARACTER 

06E6 

83 


2400 

RET 


;RETUBN 




2401 







2402 







2403 

; CONVERT 4 BIT 

NIBBLE IN R4 TO ASCII IN R4 




2404 

? 






2405 

•.BEG USED: A,R4 





2406 

;REG MODIFIED: 

A,R4 





2407 

•.NESTING: 0 






2408 

• 

f 






2409 

CONV: 



06E7 

FC 


2410 

MOV 

A,R4 


06E8 

03F6 


2411 

ADD 

A,^C-10> AND 0FFH 

06EA 

E6F0 


2412 

JNC 

CONVl 

;DIG < 10, (0-9> 

06EC 

FC 


2413 

MOV 

A.R4 


06ED 

0307 


2414 

ADD 

A* ^7 

; ADJUST FOR (A-F) 

06EF 

AG 


2415 

MOV 

R4,A 





2416 

CONVl: 



06F0 

FC 


2417 

MOV 

A,R4 


06F1 

0330 


2418 

ADD 

A.^*0’ 

;ADD BIAS FOR ASCII 

06F3 

AC 


2419 

MOV 

R4,A 

' 

06F4 

83 


2420 

RET 






2421 







2422 

1 

1 

t 

1 

1 

1 

1 

1 

If 

1 

K 





2423 

;READ TWO ASCII 

CHARACTERS, DECODE INTO 8 BIT BINARY 




2424 

; RETURN BINARY 

IN R4 AND CHECKSUM IN <A> 




2425 







2426 

ioEG USED: A,R0 

,PJ2-E4,P2 





2427 

;REG MODIFIED: 

A,R0,B2-R4,P2 





2428 

.•NESTING: 4 






2429 







2430 

KBYTE: 



06F3 

04CF 


2431 

CALL 

RTTT 

?READ CHAR FROM TTY 

06F7 

04B8 


2432 

GALL 

NIBBLE 

.•CONVERT ASCII TO HEX 

06F9 

47 


2433 

SWAP 

A 


06FA 

AC 


2434 

MOV 

R4,A 

?SAVE HI NIBBLE 

06FB 

04GF 


2435 

CALL 

RTTY' 

;GET LOW NIBBLE 

06FO 

D4BS 


2436 

CALL 

NIBBLE 











SIS-II MCS*-4a/tJPl-4I MACRO ASSEMBLER, V2.0 

PA(MS 33 

aOMPT-48 SYSTEM MONITOR V3.0 

6MHZ 



LOG 

OBJ 

SEO 


SOURCE 

. STATEMENT 


06FF 

4C 

2437 


ORL 

A,R4 


0700 

AG 

2438 


MOV 

E4,A 


0701 

Bd26 

2439 


MOV 

R0,#CKSUM 


0703 

60 

2440 


ADD 

A,@E0 

; UPDATE CHECKSUM 

0704 

A0 

2441 


MOV 

mo, A 


0703 

83 

2442 


RET 





2443 







2444 







2443 

; WRITE 

TTY (DUMP) : - 




2446 

;THIS 

ROUTINE 

EXPECTS TWO 

HEXADECIMAL PARAMETEP^ WHICH ARE 



2447 

1 IlfTERPRETED 

AS THE BOUNDS 

OF A MEMORY AREA TO BE ENCODED 



2448 

i INTO 

HEXADECIMAL FORMAT AND PUNCHED ON THE TTY PUNCH DEVICE- 



2449 

? 






2430 

WRITE: 




0706 

F5 

2431 


SEL 

MBl 


0707 

348D 

2432 


CALL 

GEXTY 


0709 

74B6 

2453 


CALL 

G2PRM 

;GET FIRST ADDRESS 

07OB 

D49F 

2454 


CALL 

WRKIA 

- 

070D 

E5 

2455 


SEL 

MB0 * 


070E 

D459 

2456 


CALL 

LEAD 




2457 

mi3: 






2458 







2459 

; COMPUTE BECOBO LENGTH 




2460 





0710 

BD00 

2461 


MOV 

R5,#0 


0712 

BC10 

2462 


MOV 

R4,^«fl6 


0714 

F5 

2463 


SEL 

MBl 




.2464 







2463 

?(PTR1L/H) » 

(PTRIL/H) <PTR2L/H> 



2466 





0713 

B804 

2467 


MOV 

R0,^4 


0717 

B932 

2468 


MOV 

R1,^WRKL 


0719 

94DA 

2469 


CALL 

ADDBL 




2470 







2471 

;TWO*S 

COMPLEMENTT R4,R5 




2472 





07 IB 

FG 

2473 


MOV 

A,R4 


07 1C 

37 

2474 


CPL 

A 


07 ID 

0301 

2475 


ADD 

A,^l 


071F 

AG 

2476 


MOV 

E4,A 


0720 

FD 

2477 


MOV 

A,R5 


0721 

37 

2478 


CPL 

A 


0722 

1300 

2479 


ADDC 

At^O 


0724 

AD 

2480 


MOV 

R5,A 




2481 







2482 

;(PTR1L/H) = 

(PTRlL/H) + (PTRaL/'H) 



2483 





0725 

6804 

2484 


MOV 



0727 

B930 

2485 


MOV 

R1 , ^WRKIL 


0729 

94DA 

2486 


CALL 

ADDBL 


072B 

E5 

2487 


SEL 

MB0 


072C 

E632 

2488 


JNC 

WRI4 

;RECORD LEN < 16 

072E 

BE10 

2489 


MOV 

R6,^16 


0730 

E436 

2490 


JMP 

WRI5 

; RECORD LEN * 16 



2491 

WRI4: 




0732 

FG 

2492 


MOV 

A,R4 


0733 

0311 

2493 


ADD 

A, ^17 


0733 

AE 

2494 


MOV 

B6,A 




2495 

WRI5: 




0736 

FE 

2496 


MOV 

A, R6 


0737 

963B 

2497 


JNZ 

WRI9 

jZERO RECORD LEN, ALL DONE 

0739 

E475 

2498 


JMP 

WRI6 




2499 

WRI9: 




073B 

F497 

2500 


CALL 

CBLF 

; PUNCH CR,LF 

073D 

BC3A 

2501 


MOV 

R4,^’:" 


073F 

F4AD 

2502 


CALL 

TYPO 


0741 

27 

2503 


CLE 

A 


0742 

B826 

2504 


MOV 

RO , ^s^CKSUM 


0744 

A0 

2503 


MOV 

@R0, A 

1 CLEAR CHECKSUM 

0745 

FE 

2506 


MOV 

A,R6 


0746 

AG 

2507 


MOV 

R4,A 


0747 

B4Fa 

2508 


CALL 

PBYTE 

; PUNCH RECORD LENGTH 



2509 







ISIS- 1 1 1103-48/^1-41 KA.CBO ASSCHBLER, 
PHOMPT-48 STfSTEH MOWITOR V3.0 6I1HZ 

V2.0 

PAGE 36 

LOG 

OBJ 

sm 

2510 ;M07E 

2511 

SOURCE 

AOOBESS 

STATEMEHT 

VALUE FROM TO R4/R5 ZERO MS NIBBLE AT HS 

0749 

B832 

2512 

MOV 

R0,#VRKL 


074B 

B904 

2513 

MOV 

Rl,#4 


0740 

F5 

2514 

SEL 

MBl 


074£ 

B488 

2515 

CALL 

MVREG 


0750 

E5 

2516 

SEL 

MB0 


0751 

2C 

2517 

XCH 

A,R4 


0752 

20 

2518 

XCH 

A,R5 


0753 

2C 

2519 

XCH 

A,R4 


0754 

B4F8 

2520 

CALL 

PBYTE 

; PUHCH HI ADDRESS 

0756 

20 

2521 

XCH 

A,R5 


‘0757 

2C 

2522 

XCH 

A,R4 


0758 

B4F8 

2523 

CALL 

PBYTE 

; PUHCH LOW ADDRESS 

075A 

27 

2524 

CLR 

A 


075B 

AG 

2525 

MOV 

R4,A 


075C 

B4F8 

2526 

2527 TOI7t 

CALL 

PBYTE 

? PUHCH RECORD TYPE 

075 E 

F5 

2528 

SEI. 

MBl 


075F 

B4A8 

2529 

CALL 

FEVRK 

;GET DATA 

0761 

E5 

2530 

SEL 

MB0 


0762 

AC 

2531 

MOV 

R4,A 


0763 

B4F8 

2532 

CALL 

PBYTE 

; PUNCH DATA 

0765 

F5 

2533 

SEL 

MBl 


0766 

B4FD 

2534 

GALL 

immK 

;IHC POIirrER 

0768 

E5 

2535 

SEL 

MB0 


0769 

EE5E 

2536 

ojnz 

R6,Tmi7 

;COimNUE TIL RECORD miTTEH 

076B 

£826 

2537 

MOV 

R0,#CKSUM 


0760 

F0 

2538 

MOV 

A,@R0 


076E 

37 

2539 

CPL 

A 


076F 

17 

2540 

IHC 

A 


0770 

AC 

2541 

MOV 

E4,A 


0771 

64F8 

2542 

CALL 

PBYTE 

? PUHCH CHECKSUM 

0773 

E410 

2543 JMP 

2544 Tmi6: 

2545 

2546 ;PtJKCH EBD OF 

2547 

WRI3 

RECORD MARK 


0775 

F497 

2548 

CALL 

CRLF . 


0777 

BC3A 

2549 

MOV 



0779 

F4AD 

2550 

CALL 

TYPO 


077B 

27 

2551 

CLR 

A 


077C 

B826 

2552 

MOV 

R0,^CKSUM 


077E 

A0 

2553 

MOV 

@R0,A 

; CLEAR CHECKSUM 

077F 

BE03 

2554 

2555 miBi 

MOV 

R6,^3 


0781 

BC00 

2556 

MOV 

R4,^0 


0783 

B4F8 

2557 

CALL 

PBYTE 


0785 

EE81 

2558 

DJHZ 

R6 , mia 


0787 

BC01 

2559 

MOV 

R4,^l 


0789 

B4F8 

2560 

CALL 

PBYTE 

? PUHCH RECORD TYPE 

078B 

F0 

2561 

MOV 

A,^R0 


078C 

37 

2562 

CPL 

A 


0780 

17 

2563 

IHC 

A 


078E 

AC 

2564 

MOV 

R4,A 


078F 

B4F3 

2565 

CALL 

PBYTE 

? PUHCH CHECKSUM 

0791 

F497 

2566 

CALL 

CRLF 


0793 

0459 

2567 

CALL 

LEAD 


0795 

2451 

2568 JMP CHDLV 

2569 

2570 ; 

2571 ;PimCH CR,LF OH TTY PUHCH 

« 4^ i 

2573 ;REG TTSEO: A,R0,E4,P2 

2574 ;REG KODIFIEO: A,R0,R4,P2 

2575 ;HESTIHG: 1 

2576 ; 

2577 CBLF: 

?ALL DONE 

0797 

BCOO 

2578 

MOV 

R4 , *GR 


0799 

F4AB 

2579 

CALL 

TYPO 


079 B 

BC0A 

2580 

MOV 

R4,*LF 


0790 

079F 

F4AI} 

83 

2581 

2582 

CALL 

RET 

TYPO 




ISIS- 1 1 IICS-48/UFI-4I mOBO ASSEMBLER, V2.0 PAGE 3T 

PROMPT-48 SYSTEM MOmTOR VS.0 6MB2 


LOG 

OBJ 

SEa 

SOURCE 

STATEMENT 




2583 






2584 

f *-*-*-*-#-*—# 





2585 

; DELAY (X). MILLISECOIIDS 




2586 

5 





2587 

;REG USED; A,R2 




2588 

?REG MODIFIED: 

A,B2 




2589 

; NESTING: 1 





2590 






2591 

DELAY: 



07A0 

2328 

2592 

MOV 

A, #40 

;40 MS 



2593 

DEL3: 



07A2 

F4A8 

2594 

CALL 

DELI 


07 A4 

07 

2595 

DEC 

A 


07A5 

96A2 

2596 

JNZ 

DELS 


07A7 

83 

2597 

RET 





2598 

DELI: 





2599 

IF NOT SY3MHZ 



07 A3 

BAGS 

2600 

MOV 

R2,#200 

;1 MS 



2601 

ELSE 





2602 

MOV 

R2,#1O0 

; 1 MS 



2603 

END IF 





2604 

DEL2: 



07AA 

EAAA 

2605 

DJNZ 

R2,DEL2 

;5 US 

07AC 

63 

2606 

RET 





2607 






2608 





2609 

; EXTERNALLY REFERENCED ROUTINE 




2610 

; PUNCH OUTPUT 

CODE, VALUE EXPECTED IN R4 



2611 






2612 

;REG USED: A,R0,P2 




2613 

;REG MODIFIED: 

A,R0,P2 




2614 

; NESTING; 0 





2615 

♦ 





2616 

TYPO: 


; PUNCH OUTPUT 

07 AD 

C419 

2617 

JMP 

TYCO 




2618 






2619 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 




2620 

jEHTERTTALL? REFEREHCED ROUTINE 




2621 

; CONSOLE INPUT 

STATUS CODE 




2622 

t 





2623 

;REG USED: A,R0,P2 




2624 

;REG MODIFIED: 

A,R0,P2 




2625 

; NESTING: 0 





2626 

? 





2627 

TYCSTS: 



07AF 

B82X 

2628 

MOV 

R0,#USACT 


07B1 

9AF0 

2629 

ANL 

P2,#MSKPG 


07B3 

8A0S 

2630 

ORL 

P2,#JIEI0U 


07B5 

80 

2631 

MOVX 

A,GR0 

; INPUT CONSOLE STATUS 

07B6 

5302 

2632 

ANL 

A,#RHDY 

; CHECK FOR RECEIVE BUFFER READY 

07B8 

C6BC 

2633 

JZ 

CSl 

;RET FALSE IF ON DATA 

07BA 

23FF 

2634 

MOV 

A, #TRUE 




2635 

GSl; 



07BC 

83 

2636 

RET 


;RETDRN 



2637 






2638 





2639 

♦ 



07DC 


2640 

ORG 

(800H - 36> 

? ALIGN AGAINST TOP OF 2K 



2641 






2642 

? ENTRY VECTOR TABLE FOR MONITOR ROUTINES 



2643 






2644 

BIX: 



07DC 

F5 

2645 

3EL 

MBl 


07DD 

84F2 

2646 

JMP 

BLANK 

; BLANK DISPLAY 



2647 

ENBEF: 



07DF 

F5 

2648 

SEL 

MBl 


07E0 

64FA 

2649 

JIIP 

ENRFS 

; ENABLE EXT INTERRUPTS FOR 



2650 



; DISPLAY REFRESH 



265 1 

REFS: 



07E2 

A4C1 

2652 

JMP 

REFSH 

; REFRESH DISPLAY 



2653 

KBST: 



07E4 

F5 

2654 

SEL 

MBl 


07Eo 

8423 

2655 

JMP 

KBSTS 

;GET KEYBOARD STATUS 



ISIS- I : 
PROMPT- 

LOC 


07E7 

07E8 

07EA 

07EB 

07ED 

07EE 

07F0 

07F1 


07F3 

07F4 


07F6 

07F8 

07FA 

07FC 

07FE 


0800 

00FF 


0080 

0040 

0020 

0010 

0008 

0004 

0000 

0001 

0001 


0800 


0802 

0804 

0806 

0808 


080A 

089€ 

O80E 
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•48 SYSTEM MORITOR V3-0 6MH2: 


OBJ 

sza 


SOURCE 

STATEMENT 




2656 

KBITT: 





F5 

2657 


SEL 

MBl 



6472 

2658 

2659 

KDBIH: 

JPXP 

GTKEY 


{GET KEYBOARD CHAR 

F5 

2660 


SEL 

MBl 



6458 

2661 

2662 

DGOtrr: 

JMP 

GETl 


5 get keyboard char 

F5 

2663 


SEL 

MBl 



C438 

2664 

2665 

EKOVTt 

JMP 

DTBLU 


{UPDATE DISPLAY WITH 7 SEG CHAR 

F5 

2666 


SEL 

MBl 



G431 

2667 


JMP 

DECHX 


{DECODE HEX CHAR TO 7 SEG 

' 

2668 

2669 

DGSTG: 




{AND UPDATE DISPLAY 

F5 

2670 


SEL 

MBl 



8490 

2671 


JMP 

UDDFL 


{DECODE HEX STRING TO 7 SEC 


2672 

2673 

CSTS: 




{AND UPDATE DISPLAY 

E4AF 

2674 

2675 

Cl: 

JMP 

TYCSTS 


;TTY STATUS 

C4D8 

2676 

2677 

CO: 

JMP 

TYCI 


5 TTY CONSOLE IN 

C419 

2678 

2679 

HI: 

JflP 

TYCO 


{TTY CONSOLE OUT 

C432 

2680 

2681 

PO: 

JFIP 

RI05 


;TTY READER IN 

E4A2) 

2682 

2683 


JMP 

TYPO 


{TTY PUNCH OUT 


2684 

iZm) TABLE 





2685 





2686 

;BEGINING OF SECOND 2IC OF 

PROGRAir MEMORY 


2687 

2688 

; 

ORG 

800H 




2689 


PAGSl 

SET TRUE 



2690 





2691 

5 PROM PROGRAMING DEFINITIONS 



2692 

? 






2693 

ORTST 

EOU 

10000000B 

{ORIENT TEST 


2694 

PROG 

Eau 

01000000B 

;PBDG PIN 


2695 

EA 

EOU 

OO10OO0OB 

;EA PIN 


2696 

VDD 

EOU 

00010O0OB 

{VDD 

FIN 


2697 

BST 

Eau 

000010O0B 

{RESET PIN 


2698 

TO 

Eau 

00000 100B 

;T0 PIN 


2699 

DUTDEN 

Eau 

0OOOO00OB 

;DUT 

DATA ENABLE 


2700 

DUTDIN 

Eau 

0000000 IB 

;DUT DATA IN 


2701 

PROMEN 

Eau 

0000000 IB 

{PROM PROGRAMING ENABLE 


2702 

5 






2703 

;NOTE: 

TEE VORD "DUT" WILL REFER TO THE DEVICE 


2704 

; UNDER TEST OR THE DEVICE 

BEING PROGRAMED AND VERIFIED. 


2705 





2706 

; FETCH 

PROM: - 





2707 

{THE PROM DATA 

WILL BE TRANSFERRED TO THE DATA. 


2708 

{MEMORY FOR VERIFICATION/MOD IF IGATION- 


2709 

? 






2710 

FETDT: 



. 


I486 

2711 

2712 


CALL 

ORIENT 




2713 

.-DEVICE ORIEDT 

IS OK EA IS ON AND PROMEN IS ON 


2714 

2715 

FETl: 





145B 

2716 


CALL 

GDUTD 


{GET DUT DATA 

0408 

2717 


CALL 

STOWK 


{STORE DATA IN EXT RAM 

B4F9 

2718 


CALL 

INWK2 


; INGREDIENT ADDRESS 

B452 

2719 

2720 


CALL 

CWKWl 


;CK FOR BONE 


2721 

; IF ADDRESS > UPPER LIMIT 

THEN 

ALL DONE 


2722 






F602 

2723 


JC 

FETl 


{GET NEXT BYTE 

341)4 

2724 


CALL 

FRG4 


{CHECK PROM DATA 

24E9 

2725 

2726 


JMP 

C0OT6 




2727 







2728 

; VECTOR FOR BREAKING FI«>II 

USER 

PROGRAM WITH MBl SELECTED 



ISIS' 1 1 MCS-4a^I-41 II&CRO ASSEHBLER, V2.0 PAGE 39 

PROMPT-48 SYSTEM MONITOR V3-0 6MHZ 


LOG 

OBJ 

SEO 

SOURCE STATEHEirr 





2729 

* 




08 IF 


2730 

ORG 

aiFH 



081F 

00 

2731 

ITOP 




0820 

00 

2732 

NOP 




0821 

2304 

2733 

PIOV 

A. ^4 



0823 

£5 

2734 

S£L 

MB0 



0824 

0428 

2735 

JMP 

MBIRT 





2736 

;GK:r!B: 




0826 

2304 

2737 

MOV 

^ 9^4 



0823 

83 

2738 

2739 

RET 






2740 






. 2741 

; VERIFY OUT DATA WITH MEMORY DATA 


. 

*2742 

? 






2743 

;BEG USED: A,R0,R1 ,R3,R5,R6, 

P2 




2744 

;BEG MODIFIED: 

A,R0,R1,R3,R5 

tR6 

,P2 



2745 

; NESTING: 3 






2746 

9 






2747 

VERIFY: 



;GET MEM DATA 

0829 

FC 

2748 

MOV 

A,R4 


082A 

AB 

2749 

MOV 

R3,A 


;SAVE 

082B 

145B 

2750 

CALL 

GDUTD 


;GET DUT DATA 

082D 

FB 

2751 

MOV 

A,R3 



082£ 

2C 

2752 

XCH 

A,R4 


; RESTORE MEM DATA 

082F 

AE 

2753 

MOV 

R6,A 



0830 

DC 

2754 

XRL 

A,R4 


; COMPARE DATA 

0831 

97 

2755 

CLR 

C 


;N0 ERROR 

0832 

C635 

2736 

JZ 

VERl 



0834 

A7 

2757 

CPL 

C 


; ERROR 



2758 

VERl: 




0835' 

83 

2759 

2760 

RET 






2761 






2762 

? FETCH DATA FROM OUT 





2763 

? 






2764 

;REG USED: A*R0.R4,R5,P2 





2765 

;REG MODIFIED: 

A,R0,R4,RS,P2 





2766 

; NESTING: 1 






2767 

» 






2768 

FEDUT: 




0836 

B842 

2769 

MOV 

R0,^PPIPC 



0838 

9AF0 

2770 

ANL 

P2,^MSKPG 



083A 

8A08 

2771 

ORL 

P2,^MEI0U 


? SELECT MEM PAGE 

083C 

80 

2772 

MOVX 

A,@R0 



0830 

5304 

2773 

ANL 

A, ^4 


;SxAVE MS ABDR BIT 

083F 

4301 

2774 

ORL 

A,^(DUTDEN + 

DUTDIN) 

0841 

90 

2775 

MOVE 

®R0,A 


;SET BUS TO INPUT 



2776 

2777 

2778 

; TOGGLE BIT IN 

CONTROL WORD 

AND 

PORT 

0842 

2304 

2779 

MOV 

A*^T0 



0844 

542G 

2780 

CALL 

TOGROU 



0846 

5410 

2781 

CALL 

D20US 


;20 US DELAY 

0848 

B840 

2782 

MOV 

R0,#PPIPA 



084A 

80 

2783 

MOVE 

A,@RO 


5 GET DUT DATA 

084B 

AC 

2784 

2785 

MOV 

R4,A 


;SAVE DATA 



2786 

2787 

; TOGGLE BIT IN 

CONTROL WORD 

AND 

PORT 

084G 

2304 

2788 

MOV 

A*#T0 



084£ 

342C 

2789 

GALL 

TOGROU 



0850 

B842 

2790 

MOV 

R0,^PPIPC 



0852 

9AF0 

2791 

ANL 

P2,^MSKPG 



0854 

8A08 

2792 

ORL 

P2,^MEI0U 



0856 

80 

2793 

MOVX 

A,@RO 



0857 

5304 

2794 

ANL 

A, ^4 


;SAVE MS ADDR BIT 

0859 

90 

2795 

MOVX 

@RO,A 


;SET BUS TO OUTPUT 

085A 

83 

2796 

2797 

RET 






2798 






2799 

jALGORITHEH FOR FETCHIHG DATA FROM THE DUT 



2800 

• 






2801 

;REG USED: A,R€I 

I,R1,R5,P2 





PA€S 40 


ISIS- 1 1 MCS-48/0Pr-41 mCRO ASSEMBLER, V2-0 


PR0MPT-4a SYSTEM MONITOR 1^.0 6MeZ 



LOC 

OBJ 

sm 

SOURCE 

STATEMENT 




2802 

;REG MODIFIED: 

A.R0,R1,R5,P2 




2803 

; NESTING: 2 





2804 

; 





2805 

GOUTD: 



080B 

146A 

2806 

CALL 

ABOUT 

{ADDRESS THE DUT 

0850 

5410 

2807 

CALL 

D20US 

{20 US DELAY 

085F 

5426 

2808 

CALL 

TOGBST 

{RELEASE RESET 

0861 

5410 

2809 

CALL 

D20US 

;20 US DELAY 

0863 

1436 

2810 

CALL 

FEDUT 

{GET DATA FROM DUT 

0865 

5425 

2811 

CALL 

DIOUS 

{ 10 US DELAY 

0867 

5426 

2812 

CALL 

TOGRST 

{GROUND RST 

0869 

83 

2813 

RET 





2814 






2815 


1 

u 

t 

H 

1 

1 

a 




2816 

; WRITE ADDRESS 

TO DUT 

• 



2817 

f 





2818 

;REG USED: A,R0. R1 ,R5,P2 

. 



2819 

;REG MODIFIED: 

A,R0,R1,R5,P2 




2820 

{NESTING: 0 





2821 

? 





.2822 

ABOUT: 



086A 

B842 

2823 

MOV 

R0,#PPIPC 


086C 

B92F 

2824 

MOV 

Rl,i««^WRK2H 


086E 

9AF0 

2825 

ANL 

P2,^MSKPG 


0870 

8408 

2326 

ORL 

P2,^MEI0U 

{SELECT MEM PAGE 

0872 

FI 

2827 

MOV 

A,@R1 

{GET ADDR HI 

0873 

5304 

2828 

ANL 

A, ^4 

{SAVE MS ADDR BIT 

0875 

90 

2829 

MOVX 

@R0,A 

{SET BUS FOR OUTPUT 

0876 

FO 

2830 

MOV 

A,R5 


0877 

53FC 

2831 

ANL 

A,#0FCH 


0879 

AO 

2832 

MOV 

R5,A 


087 A 

FI 

2833 

MOV 

A,@R1 

{GET ADDR HI 

087B 

5303 

2834 

ANL 

A, ^3 

{l^IASK TO IK 

0870 

40 

2835 

ORL 

A,R5 

{MASK IN DUT CONTROL 

087E 

AO 

2836 

MOV 

R5,A 


087F 

C8 

2837 

DEC 

RO 


0880 

90 

2838 

MOVX 

@R0,A 

{OUTPUT HI ADDR AND CONTROL 

0881 

G8 

2339 

DEC 

R0 


0882 

C9 

2840 

DEC 

R1 


0883 

Fl 

2841 

MOV 

A,®R1 

{GET ADDR LOW 

0884 

90 

2842 

MOVX 

@R0, A 

{OUTPUT ADDR LOW 

0885 

83 

2843 

RET 





2844 






2845 





2846 

{CHECK THAT THE DEVICE IS SOCKETED CORRECTLY 



2847 

? 





2848 

;REG USED: A,R0,R5,R7,24,25,31 , 

P2 



2849 

;REG MODIFIED: 

A,R0,R5,R7,24,2S 

,31,P2 



2850 

{NESTING: 1 





2851 

; 





2852 

ORIENT: 



0886 

14C0 

2853 

CALL 

0RI3 


0888 

B90F 

2854 

MOV 

RI,^0FH 


088A 

B495 

2855 

CALL 

SEULX 


. 


2856 






2857 

{SET PTRIL/H * 

VAL/VAH 




2858 




088C 

BS2A 

2859 

MOV 

RO, ^BASEL 


088£ 

2300 

2860 

MOV 

A, ^0 


0890 

B904 

2861 

MOV 

R1 , #MEPG4 


0892 

B4A3 

2862 

CALL 

PRSET 


0894 

BB02 

2863 

MOV 

R3,^2 


0896 

BA00 

2864 

MOV 

R2,^0 


0898 

0410 

2865 

GALL 

PUSS 


089 A 

94B3 

2866 

CALL 

GADDR 

{FROM ADDR 

089C 

7405 

2867 

CALL 

GTP5 


089E 

GB 

2868 

DEC 

R3 


089F 

74C3 

2369 

CALL 

GTP3 

{TO ADDR 



2870 






2871 

{IF DEL = EirO 

THEN PROM ABDR * 

FROM ADDR 



2372 




08A1 

BS32 

2873 

MOV 

R0 , »^WRKL 


G3A3 

B92E 

2874 

MOV 

R1 , 
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LOG 

OBJ 

SEa 

SOURCE STATEI1E3T 



08A5 

B488 

2875 


CALL 

MVREG 



08A7 

FE 

2876 


MOV 

A,R6 



08A3 

C6B0 

2877 


JZ 

0RI6 



08AA 

8907 

2878 


MOV 

R1 , #MEPG7 



08AG 

B495 

2879 


CALL 

SEULX 





2880 








2881 

; IF PROM ADDR > 

2K TBEIT ERROR 




2882 






08AE 

7400 

2883 


CALL 

GTP0 


;PROM ADDR 



2884 

0RI6: 





08B0 

B832 

2885 


MOV 

R0,^KRKL 



08B2 

B92G 

2886 


MOV 

R1 , ^raK3L 



08B4 

B488 

2887 


CALL 

MVREG 



0886 

B82E 

2888 


MOV 

R0.^TnSK2L 



0888 

B927 

2889 


MOV 

Rl.^BIASL . 



08BA 

6488 

2890 


CALL 

MVREG 





2891 

0RI4: 



. 


08BG 

BO08 

2892 


MOV 

R5.#RST 


; INITIAL CONTROL STATUS 

08B£ 

B446 

. 2893 


CALL 

IKIl 



0800 

4301 

2894 


ORL 

A.^PROMEK 



0aG2 

90 

2895 


MOVX 

®R0.A 


; ENABLE PROM ACCESS 

08C3 

049F 

2896 


CALL 

VRKIA 



08G5 

C6CA 

2897 


JZ 

0RI7 



08C7 

4301 

2898 


ORL 

A,^PROJIEK 



08C9 

90 

2399 


MOVX 

@R0,A 


; ENABLE PROM ACCESS 



2900 

0RI7: 





0aCA 

542A 

2901 


CALL 

TOGEA 


;EA PIN TO HI V 

0dGG 

83 

2902 


RET 






2903 

0RI3: 





08GI> 

B42E 

2904 


CALL 

IKIPPI 



oacF 

BOOF 

2905 


MOV 

RS.^OFH 



0801 

BF02 

2906 


MOV 

R7,^2 


5 NUMBER OF TRIES 

0803 

5426 

2907 


CALL 

TOGRST 


•.RELEASE RESET 



2908 

0RI2: 







2909 








2910 

;TOGGLE 

BIT IN 

CONTROL WORD 

AND 

PORT 



2911 






0805 

2380 

2912 


MOV 

A^ #ORTST 



0807 

542C 

2913 


CALL 

TOGROU 





2914 








2915 

;ORIEIfT 

- 1 






2916 

•.DELAY A MULTIPLE OF lO MICROSECONOS 



2917 






0809 

2308 

2913 


MOV 

A. ^8 



08OB 

5421 

2919 


CALL 

USTIME 


;80 US DELAY 

0800 

B80B 

2920 


MOV 

R0,#MCHST 



08DF 

80 

2921 


MOVX 

A,@R0 


•GET STATUS 

0a£0 

F2E0 

2922 


JB7 

ORIl 


; IF ORIENT OK 



2923 








2924 

; TOGGLE 

BIT IK 

corrmoL word 

AND 

PORT 



2925 






08E2 

2380 

2926 


MOV 

A.^ORIST 



08E4 

542G 

2927 


CALL 

TOGROU 


? ORIENT s 0 

08E6 

EF05 

2928 


DJKZ 

R7.0RI2 


;TRy AGAIN 

08£8 

B42E 

2929 


CALL 

INIPPI 





2930 

ORIS: 





08EA 

E5 

2931 


SEL 

MBO 



08EB 

04FE 

2932 


JMP 

ERROR 





2933 

ORIl: 





08£O 

B42E 

2934 


GALL 

INIPPI 





2935 








2936 

; DEVICE 

ORISKT 

IS OK 





2937 






0SEF 

33 

2938 


RET 






2939 

CKMO: 





08F0 

B929 

2940 


MOV 

R1 . DEMODE 


;GET PROGRAMING MODE 

0SF2 

FI 

2941 


MOV 

A. @R1 



08F3 

83 

2942 


RET 






2943 

CEO: 





08F4 

B80B 

2944 


MOV 

R0, ^MCEST 



08F6 

9AF0 

2945 


AKL 

?2,^mKPG 



08F8 

8A08 

2946 


ORL 

P2,^MEI0U 



08FA 

30 

2947 


MOVX 

A.@R0 
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LOC OBJ 

SEO 

1 

O 

STATEMENT 


08FB 83 

2948 

BET 




2949 





2950 

; *-*-*-*-*-*-* 




2951 

jPBOGRAJVVERlFY (BURB)J - 



2952 

;THIS COEQyiAND 

INITIATES THE PROM PROGRAMMING, THE 



2953 

; PROGRAM BUFFER SPECIFIER WILL BE PROGRAMMER INTO THE 



2954 

;PROM, ANR SHOULD BE SUITABLY MOD IF LED BEFORE . 



2955 

jExeguiton of 

THIS COMMAND. 



2956 

; 




2957 

PRPRO: 



08FC B829 

2958 

MOV 

R0, DEMODE 


08FE A0 

2959 

MOV 

0R0,A 


08FF 1486 

2960 

CALL 

ORIENT 



2961 





2962 

? DEVICE OPUENT 

IS OK EA IS ON AND PROMEN IS ON 



2963 




0901 14F0 

2964 

CALL 

CKMD 


0903 9660 

2965 

JN2 

PRG6 



2966 





2967 

;SET PTRIL/H * 

VAL/VAH 



2968 




0905 B834 

2969 

MOV 

R0,^«fUPLML 


0907 23EF 

2970 

MOV 

A, ^0EFH 


0909 B903 

2971 

MOV 

R1 , #MEPG3 


090B B4A3 

2972 

CALL 

PRSET 



2973 





2974 

;PUT PROG INFO 

IN EXT RAM 



2975 




0900 9AF0 

2976 

ANL 

P2,^MSICFG 


090F 8A01 

2977 

ORL 

P2,#MEFG1 


0911 B8O0 

2978 

MOV 


■B 

0913 B933 

2979 

MOV 

R1,#WRKH 


0915 BF00 

2980 

MOV 

R7 , C WKKH-BIASL) + 1 ) 



2981 

PRG72 



0917 FI 

2982 

MOV 

A,@R1 


0918 90 

2983 

MOVX 

@R0,A 


0919 C9 

2984 

DEC 

R1 


091 A 18 

2985 

INC 

R0 


09 IB EF17 

2986 

DJNZ 

R7,PRG7 

. 

0910 B3F0 

2987 

MOV 

R©, 


09 IF B9D7 

2988 

MOV 

R1,^<C0DE AND 0FFH) 


0921 BF10 

2989 

MOV 

R7,^16 


0923 B4F1 

2990 

CALL 

C0DE2 


0925 BF0A 

2991 

MOV 

R7,^0AH 


0927 B934 

2992 

MOV 

R1,^PRI1TBL AND 0FFH 


0929 B833 

2993 

MOV 

R0 , ^WRKH 



2994 

PRGS: 



092B F9 

2995 

MOV 

A,R1 


092C A3 

* 2996 

MOVP 

A,@A 


0920 A0 

2997 

MOV 

@R0,A 


092E C3 

2998 

DEC 

RO 


092F 19 

2999 

INC 

R1 


0930 EF2B 

3000 

DJNZ 

R7,PRG8 


0932 243E 

3001 

JMP 

PRG9 



3002 

PRPTTBL: 



0934 01 

3003 

DB 

1 , 0F0H, 1 , 0FFH, 3 , 0F0H 



0935 F0 

0936 01 

0937 FF 

0938 03 

0939 F0 


093A 01 

093B F0 

093C 00 

3004 

DB 

l,0F0H,0,t 

093D 00 

3005 PKG9: 



093E BS29 

3006 

MOV 

R0, DEMODE 

0940 2301 

3007 

MOV 

A, ^08741 

0942 AO 

3008 

MOV 

@R0 , A 

0943 B82E 

3009 

MOV 

R0,^WRK2L 

0945 B927 

3010 

MOV 

R1,^BIASL 

0947 B4SS 

3011 

GALL 

?IVBEG 

0949 3464 

3012 

GALL 

PRG5 
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LOG 

OBJ 

SECl 

SOURCE STATEMENT 

094B 

B933 

3013 


MOV 

Rl,#TOjKH 

094D 

B800 

3014 


MOV 

Ka,^0 

094F 

BF0O 

3015 


MOV 

R7 , #( ( TOKH-BIASL) + 1) 

0951 

9AF0 

3016 


ANL 

P2,#flSKPG 

0953 

8A01 

3017 


ORL 

P2,^MEPG1 



3018 

PRG10: 



0955 

80 

3019 


MOVE 

A,GRO 

0956 

A1 

3020 


MOV 

^RUA 

0957 

C9 

3021 


DEC 

R1 

0958 

18 

3022 


INC 

RO 

0959 

EF55 

3023 


DJNZ 

R7,PRG10 

095B 

B829 

3024 


MOV 

RO,#EMODE 

0950 

2300 

3025 


MOV 

A, #D8748 

095F 

AO 

3026 


MOV 

GEO, A 

• 

• 

3027 

PRG6: 



0960 

3464 

3028 


CALL 

PRG5 

0962 

24E9 

3029 


JflP 

C0I^IP6 



3030 

PRG5: 



0964 

B4A8 

3031 


CALL 

FETOK ? GET MEM DATA 

0966 

AC 

3032 


MOV 

R4,A 



3033 






3034 

; IF PROM DATA « 

MEM DATA THEN SKIP 



3035 




0967 

1429 

3036 


CALL 

VERIFY 

0969 

E6GE 

3037 


JKC 

PRG2 



3038 






3039 

; IF D8755 THEN 

IF PROM DATA <> 0FFH THEN ERROR 



3040 

5 else if prom data <> 0 TEES ERROR 



3041 




096B 

14F0 

3042 


CALL 

CKMD 

096D 

B9FF 

3043 


MOV 

Rl , #0FFH 

096F 

3273 

3044 


JBl 

PRGll 

0971 

B9O0 

3045 


MOV 

R1,#0 



3046 

PRGli: 



0973 

29 

3047 


XCH 

A,R1 

0974 

DE 

3048 


XRL 

A,R6 

0975 

96BC 

3049 


JNZ 

PRG12 

0977 

F9 

3050 


MOV 

A,R1 



3051 






3052 

; IF D8748 THEN 

IF PROM ADDR MSK IK >- 3F0H THEN SKIP . 



3053 




0978 

968C 

3054 


JNZ 

PRG13 

097A 

B82E 

3055 


MOV 


097G 

B906 

3056 


MOV 

Rl,^6 

097E 

B488 

3057 


CALL 

MVREG 

0980 

FF 

3058 


MOV 

A,R7 

0981 

5303 

3059 


ANL 


0983 

AF 

3060 


MOV 

R7,A 

0984 

B806 

3061 


MOV 

R0,^6 

0986 

B934 

3062 


MOV 

Rl , #UPLML 

0983 

B462 

3063 


CALL 

CKDBL 

09dA 

E6CE 

3064 


JNC 

PRG2 



3065 

PRGISt 



098G 

BA01 

3066 


MOV 

R2,#l OF FIRST PASS TRIES 

098£ 

BB01 

3067 


MOV 

R3,#l OF SECOND PASS TRIES 



3068 

PRGl: 



0990 

D410 

3069 


CALL 

PUSH ;SAVE COUNTER VALUES 

0992 

146A 

3070 


CALL 

ADDUT ; ADDRESS DUT 

0994 

541D 

3071 


CALL 

D20US ;20 US DELAY 

0996 

5426 

3072 


CALL 

TOGRST ; RELEASE RESET 

0998 

5425 

3073 


CALL 

D10US ; 10 US DELAY 

099 A 

5436 

3074 


GALL 

TODUT ; OUTPUT DATA TO DUT 



3075 






3076 

; TOGGLE 

BIT IN 

CONTROL NORD AND PORT 



3077 




099C 

2310 

3078 


MOV 

A,«^^VDD 

099E 

542C 

3079 


CALL 

TOGROU ;VDD PIN TO HI V 

O9A0 

5425 

3080 


CALL 

DIOUS ; 10 US DELAY 

09A2 

BF01 

3081 


MOV 

R7,#l ;# OF PROG PULSES 

09 A4 

540A 

3082 


CALL 

PULPROG ; PULSE PROG PIN 

09 A6 

5425 

3083 


CALL 

D10US ; 10 US DELAY 



3084 



/ 



3085 

; TOGGLE 

BIT IN 

coirraoL WORD abd port 
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LOG 

OBJ 

SEO 

SOURCE 

STATEMENT 




3086 




09 A3 

2310 

3087 

MOV 

A,^VDD 


09 AA 

542G 

3088 

CALL 

TOGROU 

?VDD PIR TO 5 V 

09 AG 

5426 

3089 

CALL 

TOGRST 

; RESET DEVICE 

09 AE 

5425 

3090 

CALL 

D10US 

; 10 US DELAY 

09B0 

1429 

3091 

CALL 

VERIFY 

;CK BUT DATA WITH MEM DATA 

09B2 

E6GE 

3092 

JNC 

PRG2 

; PROGRAMED OK 

09 B4 

D422 

3093 

CALL 

POP 

;GET COUNTER VALUES 

09B6 

EA90 

3094 

DJNZ 

R2,PRG1 

;TRY 1 TIME 

09B8 

BAOl 

3095 

MOV 

R2,^l 


09BA 

EB90 

3096 

DJIfZ 

R3,PRG1 

5 TRY 1 TIME, 1 TIME MORE 



3097 PRG12: 



• 

09BC 

A5 

3098 

3099 PRG3: 

CLR 

FI 


09BD 

542A 

3100 

CALL 

TOGEA 

;EA PIN TO 0 V 

09BF 

B42E 

3101 

3102 

GALL 

INIPPI 




3103 ; DISPLAY ADDRESS OF ERROR 




3104 




09C1 

B92F 

3105 

MOV 

R1 , #WRK2H 


09C3 

9476 

3106 

CALL 

DADDFL 


09C5 

FE 

3107 

MOV 

A,R6 


09C6 

AC 

3108 

MOV 

R4,A 


09C7 

947C 

3109 

CALL 

DDTFD 


09C9 

76FE 

3110 

JFl 

C0MP4 


09CB 

E5 

3111 

SEL 

MBO 


09CC 

2405 

3112 

3113 PRG2: 

JMP 

ERRW 

;WILL NOT PROGRAM 

09CE 

B4F9 

3114 

CALL 

IRW2 

; INCREMENT ADDRESS 

09DO 

B452 

3115 

3116 

CALL 

CVKWl 

• jCK FOR DONE 



3117 ;IF ADDRESS > 

UPPER LIMIT THEM 

ALL DONE 



3118 



* 

09 D2 

F664 

3119 

3120 PRG4: 

JC 

PRG5 

5 PROG NEXT BYTE 

0904 

B82G 

3121 

MOV 

R0,^wnraL 


09D6 

B932 

3122 

MOV 

R1,^¥BKL 


09D8 

B4S8 

3123 

CALL 

MVREG 


09 DA 

B827 

3124 

MOV 

R0,#BIASL 


09DC 

B92E 

3125 

MOV 

R1 , ^mK2L 


09DE 

B488 

3126 

3127 

CALL 

MVREG 




3128 ; COMPARE PROM 





3129 




09E0 

A5 

3130 

CLR 

FI 


09E1 

24F0 

3131 

JMP 

C0MP2 



3132 

3133 ; 

3134 ; COMPARE PROM 

3135 ; 

3136 COMPX: 


09E3 

1486 

3137 


CALL 

ORIENT 

09 E5 

A5 

3138 


CLR 

FI 

09E6 

B5 

3139 

3140 

C0fIP5: 

CPL 

FI 

09 E7 

34F0 

3141 

3142 

C0MP6.- 

CALL 

C0MP2 

09E9 

542A 

3143 


CALL 

TOGEA 

09 EB 

B42E 

3144 


CALL 

INIPPI 

09ED 

E5 

3145 


SEL 

MBO 

09 EE 

2451 

3146 

3147 

C0MP2: 

JMP 

CMDLV 

09F0 

B4A8 

3148 


CALL 

FEWRK 

09 F2 

AC 

3149 


MOV 

R4,A 

09F3 

1429 

3150 


CALL 

VERIFY 

09F5 

F6BD 

3151 

3152 

COMPl: 

JC 

PRG3 

09F7 

B4F9 

3153 


CALL 

IN1VX2 

09F9 

B452 

3154 


CALL 

O/IWl 

09FB 

99FD 

F6F0 

83 

3155 

3156 


JC 

RET 

coriP2 


3157 C0MP4: 

3158 


09FE 545F 


GALL 


WAIT2 
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LOG 

OBJ 

SZQl 

SOUBGE STATEMEirr 

OA0O 

14CI> 

3159 

GALL 

0RI3 

0AO2 

14BG 

3160 

GALL 

0RI4 

0A04 

24F7 

3161 

3162 

JMP 

COMPl 



3163 




3164 

; TOGGLE PROG PIR TWICE 



3165 

? 




3166 

;REG USED: A.RO, R5 ,R7,P2 



3167 

;PtEG ^JODIFIED: 

A,R0,R5,R7,P2 



3168 

; RESTING: 1 




3169 

; 




3170 

3171 

PULl: 

• 



3172 

; DELAY A MULTIPLE OF 10 MICROSECOIfDS 



3173 

3174 

IF ROT SYSIfflZ 


0A06 

230A 

3175 

MOV 

A,#I0 



3176 

ELSE 




3177 

MOV 

A, ^5 



3178 

ERDIF 


OAoa. 

5421 

3179 

CALL 

USTIME ;0.I MS DELAY 



3180 

3181 

PULPROG: 




3182 

3183 

; TOGGLE BIT IN 

CONTROL WORD AND PORT 

9A0A 

2340 

3184 

MOV 

A,^PROG 

0A0G 

542C 

3185 

CALL 

TOGROU 



3186 

IF ROT SY3MH2 


0A0£ 

B814 

3187 

MOV 

R0,^20 



3188 

ELSE 




3189 

MOV 

R0,^10 



3190 

ERDIF 




3191 

3192 

PUL2: 




3193 

; DELAY A MULTIPLE OF 10 MICROSECORDS - 



3194 



0A10 

23FA 

3195 

MOV 

A, ^250 

0A12 

5421 

3196 

CALL 

USTIME ;2.5 MS DELAY 

0A14 

£810 

3197 

3198 

DJRZ 

R0.PUL2 



3199 

3200 

; TOGGLE BIT IR 

CONTROL WORD AND FORT 

0A16 

2340 

3201 

MOV 

A,^PROG 

0A18 

542G 

3202 

CALL 

TOGROU 

0A1A 

EF06 

3203 

DJRZ 

R7,PUL1 

0A1G 

83 

3204 

3205 

RET 




3206 

5 



3207 

; DELAY ROUTIRE 




3208 

; TOTAL DELAY « 

<A> TIMES 10 MICROSECORDS 



3209 

♦ 




3210 

;REG USED: A 




3211 

;REG MODIFIED: 

A 



3212 

« RESTING: 0 




3213 





3214 

D20US: 




3215 

IF ROT SY3MSZ 


0A1D 

00 

3216 

ROP 


0A1E 

00 

3217 

ROP 


0A1F 

4425 

3218 

Jl^IP 

D10US ;20 US DU-AY 



3219 

ELSE 




3220 

RET 




3221 

ERDIF 




3222 

USTIMEr 


0A21 

07 

3223 

DEC 

A 

0A22 

00 

3224 

ROP 


0A23 

9621 

3225 

JRZ 

USTIME 



3226 

DIOUS: 


0A25 

83 

3227 

3228 

RET 

?10 US DELAY 



3229 




3230 

iTHIS ROUTIITE WILL TOGGLE A BIT OR BITS IK THE PROGRAM 



3231 

;CO!rrROL WORD 'AS DEFINED BY <A>, THE COHTROL WORD 
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LOG 

OBJ 

S£a 

SOOBGE 

STATEMENT 




3232 

;WILL BE OUTPUT TO PPIPB MD 

<R5> WILL BE UPDATED 



3233 

i 





3234 

; EXPECTS: BIT SET IN <A> 




3235 

* 





3236 

;BEG USED: 4*H0.H5,P2 




3237 

jREG MODIFIED: 

A,R0,R5,P2 




3238 

{NESTING: 0 





3239 

? 





3240 

TOGHST: 



0A26 

2308 

3241 

MOV 

A,#RST 

{TOGGLE RESET PIN 

0A28 

442C 

3242 

JMP 

TOGROU 




3243 

TOGEA: 



0A2A 

2320 

3244 

‘ MOV 

A,^EA 

{TOGGLE EA PIN 



3245 

TOGROU: 

. 


0A2C 

6841 

3246 

MOV 

R0,^PPIPB 


0A2E 

94F0 

3247 

ANL 

P2,#MSKPG 


0430 

8403 

3248 

ORL 

P2,^MEI0U 

{SELECT MEM PAGE 

0432 

m 

3249 

XRL 

A.R5 

{TOGGLE THE BIT 

0433 

4D 

3250 

MOV 

R5,A 

{SAVE STATE 

0434 

90 

3251 

MOVX 

OHO, 4 

{OirrPUT CONTROL 

0435 

83 

3252 

3253 

RET 





3254 

1 

1 

1 

1 

If 

• 

1 





3255 

zmiTZ DATA TO 

DUT 




3256 

; 





3257 

;REG USED: A,R0,R4.P2 




3258 

;REG MODIFIED: 

A,R0,P2 




3259 

{NESTING: 0 




• 

3260 

? 


. 



3261 

WRBUT: 



0436 

B842 

3262 

MOV 

R0,#PPIPC 


0438 

94F0 

3263 

ANL 

P2,^MSKPG 


0434 

8408 

3264 

ORL 

P2,^MEI0U 

5 SELECT MEM PAGE 

043C 

80 

3265 

MOVX 

A,@R0 


043D 

5304 

3266 

ANL 

A,*^4 

;SAVE MS ADDR BIT 

043F 

90 

3267 

MOVX 

@R0,A 

sSET BUS TO OUTPUT 

0440 

B840 

3268 

MOV 

R0,^PPIPA 


0442 

FC 

3269 

HOV 

A,R4 


0443 

90 

3270 

MOVX 

@R0, A 

-OUTPUT DATA 

0444 

83 

3271 

3272 

RET 





3273 




3274 

; 





3275 

{END OF PROGRAM ROUTINES, BEGINNING OF MONITOR SUBROUTINES 



3276 

? 





3277 




3278 

{ENTRY LEVEL ROUTINE FOR GO AND SNGL STP COMMANDS 



3279 

; 





3280 

{REG USED: A, R0-a7 , P2 , F0 




3281 

{REG MODIFIED: 

A,R0-R7,P2,F0 




3282 

{NESTING: 4 





3283 

, 





3284 

GOSUB: 



0445 

94B8 

3285 

3286 

CALL 

G4DDR 

{GET ADDRESS 



3287 

; IF DEL s CLEAR EHTRY THER ABORT 



3288 




0447 

37 

3289 

CPL 

4 


0448 

324D 

3290 

JBl 

GOSHl 


0444 

E5 

3291 

SEL 

MB0 


044B 

2451 

3292 

JMP 

CMDLV 




3293 

GOSXTl: 



0A4D 

94F0 

3294 

ANL 

P2,^M5KPG 


0A4F 

8401 

3295 

3296 

ORL 

P2,^MEPG1 

{SELECT RAM MEMORY PACT 1 



3297 

; IF ADDRESS ENTERED THEN STORE IN USER <PC> 



3298 




0451 

E65C 

3299 

3300 

JNC 

G0SU2 




3301 

{UPDATE USER <FC> 




3302 




0453 

B8C3 

3303 

?IOV 

R0,^RGTOP+4 


0455 

FC 

3304 

MOV 

4,R4 
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LOG 

OBJ 

SEa 

SOURCE STATEMEHT 

0A56 

90 

3305 

MOVX 

®R0,A ;PCL 

0A57 

FD 

3306 

MOV 

A,R5 

0A58 

530F 

3307 

ANL 

A,^0FH 

0A5A 

18 

3308 

INC 

R0 

0A5B 

90 

3309 

MOVX 

0E0,A ;PCH 



3310 

G0STJ2; 


0A5C 

83 

3311 

RET 




3312 

3313 

WAIT: 




3314 

3315 

; DISPLAY <USER 

PC> AND <A> 

0A5I) 

9404 

3316 

CALL 

DIPCA 



3317 

WAIT2: 


OAST 

233F 

3318 

MOV 

A,#’?’ 

0A61 

B825 

3319 

MOV 

R0 , ^PRBYTE 

0A63 

A0 

3320 

MOV 

0RO,A 

0A64 

7410 

3321 

CALL 

GETKB ;GET KEYBOARD DIG 



3322 

3323 

; IF KB <> NEXT 

THEN GO TO COMMAND. LEVEL WITH NEW COMMAND 



3324 

; IF KB = NEXT THEN GO AGAIN 



3325 



0A66 

03EA 

3326 

ADD 

A, -NEXT) AND 0FFH 

0A68 

966B 

3327 

JNZ 

WAITl 

0A6A 

83 

3328 

RET 




3329 

WAITl: 


0A6B 

E5 

3330 

SEL 

MB0 ; EXIT 

0A6C 

2462 

3331 

JMP 

CMDEN 



3332 


■ 



3333 





3334 

; EXAMINE / MODIFY ROUTINE 



3335 

? 




3336 

;REG USED: A,R0 

i-R7,R24,R25,Il31,P2 



3337 

;BEG MODIFIED: 

A,R0-R7,R24,R25,R31,P2 



3338 

3339 

; NESTING: 6 

* 




3340 

EMSUB: 


0A6E 

74B2 

3341 

CALL 

GIPRM 5 GET ADDRESS 



3342 

EM3: 


0A70 

9474 

3343 

CALL 

DAFLD 

0A72 

54FA 

3344 

3345 

CALL 

EMSB3 



3346 

? IF NEW DATA ENTERED THEN MEMCimK) = NEW DATA 



3347 



0A74 

E67a 

3348 

JNC 

EM2 {IF NO DATA ENTERED 

0A76 

D408 

3349 

CALL 

STOWK 



3350 

3351 

EM2: 




3352 

;CK DELIMITER AND ADDRESS 



3353 



0A78 

547D 

3354 

CALL 

EMSB4 

0A7A 

F670 

3355 

JC 

EM3 {NOT DONE, DO NEXT ADDPJESS 

0A7C 

33 

3356 

3357 

RET 




3358 





3359 

;CS: DELIMITER FOR ALL DOHE 



3360 

;CK ADDRESS FOR 

. ALL DONE 



3361 

;ALL DONE = <CY*0> 



3362 

? 




3363 

;REG USED: A,R0 

-R2,R24,R25,R31,F0 



3364 

;REG MODIFIED: 

A, R0-R2 , R24, 3325, R3 1 , F0 



3365 

; NESTING: 1 




3366 

? 




3367 

EMSB4: 


OATB 

D422 

3368 

3369 

CALL 

POP 



3370 

3371 

; IF DELIMITER = 

EXECUTE THEN RETURN (ALL DONE) 

0A7F 

C68B 

3372 

3373 

JZ 

EKT 



3374 

; IF DELIMITER = 

PREV THEN DEG POINTER 



3375 

;ELSE INC POINTER 



3376 

? IF WOBIC ADDRESS > UPPER LIMIT THEN RETURN (ALL DONS) 



3377 
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PACE 48 


LOC OBJ 


SEO 


SOOBjCE STATEMEirr 


0A81 

3287 

3378 


JBl 


EMB 

0A83 

B4FI> 

3379 


CALL 


INVRK 

0A83 

A45E 

3380 


JMP 


Cl^KUL 



3381 

EMS: 




0A87 

B475 

3382 


CALL 


DEVRK 

0A80 

A45E 

3383 


JMP 


CT^KUL 



3384 

EMT: 




0A8B 

97 

3385 


CLR 


C 

oAac 

83 

3386 


RET 





3387 







3388 






3389 

?RETOBir 

A VALUE (0, 1 OR 2) FOR TYPE BRANTCHINC 



3390 

5 






3391 

;REC USED! A, 

R0,R1,R6,R7,P2 



3392 

;REC MODIFIED: 

A,R0,R1,R637,P2 



3393 

; NESTING: 3 





3394 

; 






3395 

GEXTY: 




OASD 

54B0 

3396 


CALL 


GTYPE 

0A8F 

B8AI> 

3397 


MOV 


AND 0FFH 

0A91 

34A2 

3398 


CALL 


DTYPE 

0A93 

83 

3399 


RET 





3400 

GGOTY: 




0A94 

34B0 

3401 


CALL 


GTYPE 

0A96 

B8AA 

3402 


MOV 


R0,^GOTBL AND 0FFH 

0A98 

54A2 

3403 


CALL 


DTYPE 

0A9A 

9AF0 

3404 


ANL 


P2, #W3EPG 

0A9C 

8A01 

3405 


ORL 


P2,^MEPG1 

0A9E 

BdDG 

3406 


MOV 


R0,^MONRT 

0AA0 

90 

3407 


MOVX 


®R0,A 

0AAI 

83 

3*408 


RET 





3409 

DTYPE: 




0AA2 

FE 

3410 


MOV 


A,R6 

0AA3 

66 

3411 


ADD 


A,RO 

0AA4 

B83E 

3412 


MOV 


R0,#DIPTR+6 



3413 

SAME4: 




0AA6 

A3 

3414 


MOVP 


A,®A 

0AA7 

A0 

3415 


MOV 


QR0,A 

0AA8 

FE 

3416 


MOV 


A.R6 

0AA9 

83 

3417 


RET 





3418 

GOTBL: 




0AAA 

A3 

3419 


DB 


DCLC0,DC5,DCB 

0AAB 

92 






0AAG 

83 








3420 

EXTBL: 




0AAD 

8C 

3421 


DB 


DCPC,DCLCR,DCD 

0AAE 

AF 






0AAF 

Al 








3422 

IF ((SAME4 AND 

0FF00H) LT ( S AND OFFOeH) ) 



3423 

MOV 

A^SPERR ;SAME PAGE ERROR 



3424 

END IF 






3425 

GTYPE: 




0AB0 

7410 

3426 


CALL 


GETKB 

0AB2 

B90F 

3427 


MOV 


R1 , ^OFH 

0AB4 

B495 

3428 


CALL 


SEULX 



3429 







3430 

;SET PTRIL/H 

s 

VAL/VAE 



3431 





0AB6 

B82A 

3432 


MOV 


R0,^BASEL 

0ABd 

2300 

3433 


MOV 


A,^0 

0ABA 

B904 

3434 


MOV 


R1 , #MEPG4 

0ABC 

B4A3 

3435 


CALL 


PRSET 

0ABE 

FE 

3436 


MOV 


A,R6 

0ABF 

D311 

3437 


XBL 


A, v^^PRGKY 

0AG1 

C6F8 

3438 


JZ 


GTy4 



3439 







3440 

;SET FTRIL/H 

s 

VAL/VAR 



3441 





0AC3 

B834 

3442 


MOV 


R0,#UPLIIL 

0AC3 

2348 

3443 


MOV 


A, lOMAX-RGPTXO 

0AG7 

B9O0 

3444 


MOV 


R1,^0 

©AC9 

B4A3 

3445' 


CALL 


PRSET 


3446 



ISIS-n I3CS-48/OTI-41 MAiCRO ASSEMBLER. V2.0 PAGE 49 

PBOMPT-48 SYSTEM MGRITOR V3.0 6I1HZ 


LOG 

OBJ 

SEO 

SOURCE 

STATEMENT 



3447 ;SET 

3448 

PTRIL/H s 

VAL/MEPGl 

0AGB 

Ba2A 

3449 

MOV 

R0,#BASEL 

0ACD 

2380 

3450 

MOV 

A,#RGPTR 

0ACF 

B49B 

3451 

CALL 

SETPl 

0AD1 

FE 

3452 

MOV 

A,B6 

0AD2 

D313 

3453 

XRL 

A^#REGKY 

0AD4 

C6F7 

3454 

JE 

GTY3 

0AD6 

B9O0 

3455 

MOV 

R1 , ^MEPGO 

0AD8 

B495 

3456 

CALL 

SEULX 

0ADA 

74AA 

3457 

CALL 

CKASIO 

0ADC 

C6E2 

3458 

JZ 

CTY5 

0ADE 

B903 

3459 

MOV 

R1 , ^MEPG3 

0AE0 

B495 

. 3460 

3461 GTY5: 

CALL 

SEULX 

0AE2 

B82A 

3462 

MOV 

R0,#BASEL 

0AE4 

B4A1 

‘3463 

CALL 

SET00 

0AE6 

FE 

3464 

MOV 

A.R6 

0AE7 

D312 

3465 

XRL 

A, ^DATKY 

0AE9 

C6F6 

3466 

JZ 

GTY2 

0AEB 

FE 

3467 

MOV 

A,R6 

0AEC 

D310 

3468 

XRL 

A,^PREV 

0AEE 

96F3 

3469 

JNZ 

GTYl 

0AF0 

E5 

3470 

SEL 

mo 

0AF1 

2451 

3471 

3472 GTYl: 

JMP 

CMDLV 

0AF3 

E5. 

3473 

SEL 

MB0 

0AI<’4 

04FE 

3474 

3475 GTY2: 

JMP 

ERROR 

0AF6 

17 

3476 

3477 GTY3: 

INC 

A 

0AF7 

17 

3478 

3479 GTY4: 

INC 

A 

0AF8 

A£ 

3480 

MOV 

R6,A 

0AF9 

83 

3481 

RET 



3482 

3483 ; 

3484 ;GET RAM DATA BYTE 

3485 ; DISPLAY DATA IR DATA FIELD 

3486 ;GET DATA BYTE FROM ICB 

3487 ;SET UP FOR DATA ENTERED TEST 

3488 ; 

3489 ;REG USED: A,R0-R7,R24,B25 ,R31 ,P2.F© 

3490 ;REG MODIFIED: A,R0-R7,R24,R25.R31,P2,F0 

3491 ; NESTING: 4 

3492 • 

3493 EMSBS: 

OAFA BS33 3494 MOV R0,^WRKH 

0AFC D4A1 3495 CALL WRKA 

0AFE B4AS 3496 CALL FEWK 

0BO0 AC 3497 MOV R4,A 

0B01 947C 3498 CALL DDTFD 

0B03 B410 3499 CALL GBYTE 

0B05 D410 3500 CALL PUSH I SAVE DELIMITER 

0BO7 83 3501 RET 

3502 

3503 : 

3504 -.MASK UPPER NIBBLE IN R5 

3505 ?ADD (R4,R5) TO (URIO/H) 

3506 5 RET GY s 0 IF (TOKL/H) > <UPLML/H> 

3507 ? 

3508 ;REG USED: A,R0,Rl,R4,R5,F0 

3509 ;REG MODIFIED: A,R0, El ,R5,F0 

3510 ; NESTING: 1 

3511 ; 

3512 EMSBl: 

0B0S FD 3513 MOV A,R5 

0B09 330F 3314 AJSL A.^OFH 

0B0B AD 3315 KOV R5,A ;ZSRO IS ITIBBLE OF ADDBSSS 

3516 

3317 ;ABD ADDBESS TO BASE ADDRESS 

3318 

3519 CALL 


0B0C 94B0 


AHK4S 
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LOG 

OBJ 

SEO 


SOURCE STATEMEUT 

OBOE 

A45E 

3520 


JMP 

CVKUL 



3521 






3522 




3523 

sEKTEBITALLy REFEBEHCED RODTIHE 



3524 

;GET A 

DIG FROM THE KEYBOARD 



3525 

^RETURN DIG IN 

A AND SET FO IF 



3526 

; 





3527 

;REG USED: A, R0, R6 ,R7,P2 



3528 

;REG MODIFIED: 

A,R0,R6,R7,P2 



3529 

; NESTING: 1 




3530 

; 





3531 

GETKE: 



OB 10 

05 

3532 


EN 

I 

OBll 

74AA 

3533 


CALL 

CKASIO 

OB 13 

C658 

3534 


JZ 

GETl 

0B15 

122F 

3535 


JBO 

GET2 

0B17 

27 

3536 


CLR 

A 

OBld 

90 

3537 


HOVX 

€R0, A 



3538 

GETS: 



0B19 

F5 

3539 


SEL 

MBl 

OBIA 

9423 

3540 


CALL 

KBSTS 

OBIC 

F672 

3541 


JC 

GTKEY 

OBIE 

E5 

3542 


SEL 

mo 

OBIF 

F4AF 

3543 


CALL 

TYCSTS 

0B21 

C619 

3544 


JZ 

GET3 

0B23 

D4Dd 

3545 


CALL 

TYCI 

0B25 

537F 

3546 


ANL 

A,^7FH 

0B27 

C619 

3547 


JZ 

GETS 

0B29 

F5 

3548 


SEL 

MBl 

0B2A 

74AA 

3549 


CALL 

CKASIO 

0B2C 

2301 

3550 


MOV 

A,^l 

0B2E 

90 

3551 


MOVX 

@R0, A 



3552 

GET2: 





3553 






3554 

;GET CHAR FORM 

TTY PORT 



3555 




0B2F 

FC 

3556 


MOV 

A,R4 

0B30 

AF 

3557 


MOV 

. R7,A 

0B31 

E5 

3558 


SEL 

MB0 

0B32 

8825 

3559 


MOV 

RO,^PRBYTE 

0B34 

FO 

3560 


MOV 

A,@R0 

0B35 

AC 

3561 


MOV 

R4,A 

0B36 

D419 

3562 


CALL 

TYCO 



3563 

KEY2; 



0B33 

F5 

3564 


SEL 

MBl 

0B39 

E3 

3565 


SEL 

MBO 

0B3A 

F4AF 

3566 


GALL 

TYCSTS 

0B3C 

C63a 

3567 


JZ 

KEY2 

0B3E 

D4D8 

3563 


GALL 

TYCI 

0B40 

337F 

3569 


ANL 

A, #7FH 

0B42 

AE 

3570 


MOV 

R6,A 

0B43 

F5 

3571 


SEL 

MBl 

0B44 

FF 

3572 


MOV 

A,R7 

0B45 

AC 

3573 


MOV 

R4,A 

0B46 

FE 

3574 


MOV 

A,R6 

0B47 

D2DC 

3575 


JB6 

CTP2 

0B49 

7251 

3576 


JB3 

NT4 

0B4B 

9253 

3577 


JB4 

NT5 

0B4D 

B255 

3578 


JB5 

KOK 

0B4F 

64DC 

3579 


JMP 

GTP2 



3580 

NT4: 



0B51 

92DC 

3581 


JB4 

GTP2 



3582 

NT5: 



0Bo3 

B2DC 

3583 


JB5 

GTP2 



3584 

KOK: 



0B53 

15 

3535 


DIS 

I 

0B56 

649D 

3586 


JMP 

ECKEY 



3587 

GETl; 



0B58 

9AF0 

3588 


ANL 

P2,-MSKPG 

0B5A 

8A08 

3589 


OEL 

P2,^fIEI0U 

0B5G 

BS09 

3590 


MOV 

R0,^KBDAT 



3591 

KEYl: 



0B5E 

05 

3592 


EN 

I 


NOT BEX BIG 

; KEYBOARD 
;TrY PORT 

; KEYBOARD 


?SAVE R4 

;MASK PARITY 

;RESTORE R4 


SET BP KEYBOARD PTR 



ISIS-II MCS-4a/UPI-41 mCBO ASSEMBLER, V2*0 FMB St 

FIlOMPT-48 SYSTEM MONITOR V3-0 6MHZ 


LOG 

OBJ 

sEa 


SOURCE 

STATEMENT 


0B5F 

BF05 

3593 


MOV 

R7,^5 


0861 

15 

3594 


DIS 

I 




3595 

KEY: 




0B62 

EE62 

3596 


DJNZ 

R6,KEY. 


0B64 

80 

3597 


M0V2I 

A,@R0 


0B65 

533F 

3598 


ANL 

A, ^3FH 


0B67 

965E 

3599 


JNE 

KEYl 

fWAIT TIL NO KEY PRISSED 

0B69 

EF62 

3600 


DJNZ 

R7,KEY 




3601 

NOKEY; 




0B6B 

03 

3602 


EN 

I 


0B6C 

80 

3603 


MOVX 

A,€»E0 


0B6D 

13 

3604 


DIS 

I 


0B6E 

5338 

3605 


ANL 

A, #38H 


0B70 

G66B 

3606 


JZ 

NOKEY 




3607 

GTKEYs 




0B72 

15 

3608 


DIS 

I 


0B73 

9AF0 

3609 


ANL 

P2,^MSKPG 


0B75 

8408 

3610 


ORL 

P2,^MEI0U 


0B77 

B809 

3611 


MOV 

R0,#ICBDAT 

;SET UP KEYBOARD PTR 

0B79 

BF02 

3612 


MOV 

R7,#2 




3613 

Vr2: 




0B7B 

BETA 

3614 


MOV 

R6 , #250 




3615 

NTl: 




0B7D 

EE7D 

3616 


DJNZ 

R6,NT1 


0B7F 

EF73 

3617 


DJNZ 

R7,WT2 

;¥AIT APPROX 5 MSEND 



3618 

RESOL: 




OBBl 

80 

3619 


MOVX 

A,@R0 

;GET KB CHAR 

0Ba2 

533F 

3620 


ANL 

A,#3FH 


0B84 

AE 

3621 


MOV 

R6,A 


0B85 

728D 

3622 


JB3 

N0T4 

{CHECK IF MDLTY KEY PRESSED 

0887 

928F 

3623 


JB4 

N0T5 


0689 

B291 

3624 


JB5 

KEYOK 


0B8B 

646B 

3625 


JMP 

NOKEY 




3626 

N0T4: 




0B8O 

9281 

3627 


JB4 

RESOL 

- 



3628 

N0T5: 




0B8F 

B281 

3629 


JB5 

RESOL 




3630 

KEYOK: 




0B91 

BF0A 

3631 


MOV 

R7,#10 

;SET REDUNDANCY CTR 



3632 

REDUN: 




0B93 

80 

3633 


MOVX 

A,0R0 

?D0 READ REDUNDANCY CHECK 

0B94 

533F 

3634 


ANL 

A,#3FH 


0B96 

37 

3635 


CPL 

A 


0B97 

6E 

3636 


ADD 

A,R6 


0B98 

17 

3637 


INC 

A 


0B99 

9681 

3638 


JNZ 

RESOL 


0B93 

EF93 

3639 


DJNZ 

R7, REDUN 




3640 

ECOIY: 




0B9D 

FE 

3641 


MOV 

A,R6 


0B9E 

532F 

3642 


ANL 

A,#2FH 


0BA0 

AE 

3643 


MOV 

R6,A 

{ENCODE KB CHAR 

0BA1 

85 

3644 


CLR 

F0 


0BA2 

B2A5 

3645 


JB5 

SPEC 

{ IF NOT HEX KEY 

0BA4 

83 

3646 


RET 


. {RETURN HEX DIG 



3647 

SPEC: 




0BA3 

03F0 

3648 


ADD 

A,#0F0H 

{COOT ENCODING FOR SPEC CHAR 

0BA7 

AE 

3649 


MOV 

R6,A 


0BA8 

95 

3650 


CPL 

F0 

{SET F0 FOR NOT HEX CHAR 

0BA9 

83 

3651 


RET 


{RETURN SPECIAL CHAR 



3652 

CSASIO: 




0BAA 

9AF0 

3653 


ANL 

P2,#MSKPG 


0BAC 

8A0I 

3654 


ORL 

P2,#MEPG1 


0BAE 

B8DD 

3655 


MOV 

R0 , #ASPTa 


0BBO 

80 

3656 


MOVX 

A,@R0 


0BB1 

83 

3657 


RET 




3658 

3659 ? 

3660 ;GET AODBESS VALUE FROM KEYBOARD 

3661 ;BUILD VAL IN WRKl , WRS2 

3662 ; 

3663 ;REG USED: 4,R0-E7, R24,R25,R3I ,P2,F0 

3664 ;REG MODIFIED: A,E0-R7,R24, R25 ,B31 ,P2,F0 

3665 ; NESTING: 5 



ISIS- 1 1 r!CS--48/OTI-41 MACRO ASSEMBXJ521* V2.9 
PROMPT-48 STOTEM MONITOR V3.0 6MH2 


PACE 


52 


LOG 

OBJ 

SEO 


SOURCE STATEMENT 



3666 

5 





3667 

G1PRM-- 



0BB2 

BB01 

3668 


MOV 

R3,^l 

eBB4 

64BG 

3669 


JMF 

GTPRM 



3670 

G2PRM: 



0BB6 

BB02 

3671 


MOV 

RS,^ 

0BB8 

64BG 

3672 


JMP 

GTPRM 



3673 

G3PRM: 



0BBA 

BB03 

3674 


MOV 

R3,#3 



3675 

GTPRM: 



0BBG 

BA00 

3676 


MOV 

B2,#0 



3677 

GTP4: 



0BBE 

74D0 

3678 


CALL 

GTP0 

0BG0 

EBC3 

3679 


DJNZ 

R3,GTP3 

0BC2 

83 

3680 


BET 

. 



3681 

GTP3S 



0BG3 

7400 

3682 


CALL 

GTP0 



3683 






3684 

; IF THIS AODR < 

LAST ADDRESS THEN ERROR 



3685 




0BC5 

B832 

3686 


MOV 

R0,^NRKL 

0BC7 

B930 

3687 


MOV 

R1,#WRK1L 

0BC9 

6462 

3683 


CALL 

CKDBL 

0£GB 

E6DC 

3689 


JNC 

GTP2 

0BCD 

EBBE 

3690 


DJNZ 

R3,GTP4 

0BCF 

83 

3691 


RET 




3692 

GTP0: 



0BD0 

0410 

3693 


CALL 

PUSH 

0BD2 

B406 

3694 


CALL 

BLKAD 

0B1)4 

94B8 

3695 


CALL 

GADDR 



3696 






3697 

? IF DEL = CLEAR ENTRY THEN ABORT 



3698 

• 





3699 

GTP5: 



0BO6 

37 

3700 


CPL 

A 

0BD7 

32DF 

3701 


JBl 

GTPl 

0BD9 

E5 

3702 


SEL 

mo 

OBOA 

2451 

3703 


JMP 

CMDLV 



3704 

GTP2: 



0BI)G 

E5 

3705 


SEL 

MB0 

0BD1> 

04FE 

3706 


JMP 

ERROR 



3707 

CTPi: 





3708 






3709 

;IF NO 

ADDRESS 

ENTERED THEN ERROR 



3710 




0BI)F 

E60C 

3711 


JNC 

GTP2 

0B£1 

37 

3712 


GPL 

A 

0BE2 

AE 

3713 


MOV 

H6,A 



3714 






3715 

? IF ADDRESS > UPPER LIMIT TEDEai ERROR 



3716 




0BE3 

FD 

3717 


MOV 

A,R5 

0BE4 

530F 

3718 


ANL 

A, ^0FH 

0BE6 

AD 

3719 


MOV 

R5,A 

0BE7 

B45S 

3720 


CALL 

C45UL 

0BE9 

E6DC 

3721 


JNC 

CTP2 

0BEB 

0422 

3722 


CALL 

POP 

0BEB 

FA 

3723 


MOV 

A,H2 

0BEE 

03F7 

3724 


ADD 

A,^GTTBL AND 0FFH‘ 



3725 

SAME5: 



0BF0 

A3 

3726 


MOVP 

A,@A 

0BF1 

A9 

3727 


MOV 

Rl, A 

0BF2 

lA 

3728 


INC 

R2 

0BF3 

B486 

3729 


CALL 

MVR45 

0BF5 

FE 

3730 


MOV 

A,R6 

0BF6 

83 

3731 


RET 




3732 

GTTBL: 



0BF7 

32 

3733 


BB 

WRKL, miciu mE2h 

0BF8 

30 





0BF9 

2E 






3704 IF ((SAME5 MO 0FF0©H) LT ( 0 MD OFF00H) ) 

3735 MOV A,S?SBR ?S4MS PAGE ERROR 

3736 END IF 



ISIS-II MCS-48/trPl-41 H4CB0 ASSI2MBU3U V 2-0 
PROMPT-48 SYSTEM MOUTITOR V3-0 6MHZ 


PACE 53 


LOG OBJ sm SOURCE STATEMENT 

3737 

3738 

3739 ; EXTERNALLY REFERENCED ROUTINE 

3740 ; ENABLE EXTERNAL INTERRUPTS FOR DISPLAY REFRESH 

3741 ; 

• 3742 ? REG USED: A,R0,P2 

3743 ;BEG MODIFIED: A,R0,P2 

3744 ; NESTING: 0 

3745 ; 

0^/4^ iTTmird • 

0BFA B808 3747 * MOV RO.#P0LIN 

0BFC 9AF0 3748 ANL P2,^^SKPG 

0BFE 8A0a 3749 ORL P2,^MEI0U 

0C00 23FF 3750 MOV A,^TRUE 

0CO2 90 3751 MOVX ®RO,A ; ENABLE INTERRUPTS 

0CO3 83 3752 RET ; RETURN 

3753 

3754 

3755 5 DISPLAY ’PC* IN COMMAND FIELD, 

3756 ;USER <PC> IN ADDRESS FIELD AND 

3757 ?USER <A> IN DATA FIELD 

3758 ; 

3759 ;REG USED: A, R0-R2, R4, R5,R7,P2 

3760 ;REG MODIFIED: A, R0-R2,R4,R5 , R7,P2 

3761 j NESTING: 2 

3762 ? 

3763 DIPCA: 

3764 

3765 jDISPLAY ’PC» IN DISPLAY’S COMMAND FIELD 
3766. 


0C04 

B83E 

3767 

MOV 

R0,^DIPTR+6 

;GET DISPLAY BUF PTR 

0C06 

.23C6 

3768 

MOV 

A,#DCC 


0C0a 

AO 

3769 

MOV 

®R0,A 


0C09 

18 

3770 

INC 

R0 


0C0A 

2S8C 

3771 

MOV 

A,^DCPC 


0C0C 

A0 

3772 

MOV 

@R0, A 




3773 

DIPA¥: 



0G0D 

9AF0 

3774 

ANL 

P2,#MSKPG 


0C0F 

8A01 

3775 

ORL 

P2,^MEPG1 


0C11 

B8C3 

3776 

MOV 

R0,^RGTOP+4 


0C13 

80 

3777 

MOVX 

A,@R0 

;GET <FCL> 

0C14 

AC 

3778 

MOV 

R4,A 


0C15 

18 

3779 

INC 

R0 


0C16 

80 

3780 

MOVX 

A,®R0 

?GET <PCH> 

0G17 

AD 

3781 

MOV 

R5,A 


0C13 

B905 

3782 

MOV 

R1 , ^5 


0C1A 

9476 

3783 

CALL 

DADDFL 


0C1C 

BSCO 

3784 

MOV 

R0,^RGTOP+1 


0C1E 

80 

3785 

. MOVX 

A,@RO 

;GET <A> 

0C1F 

AC 

3786 

MOV 

R4,A 


0G20 

947C 

3787 

CALL 

DDTFD 


0G22 

83 

3788 

RET 





3789 






3790 






3791 

; KEYBOARD INPUT 

STATUS CODE 




3792 

$ 





3793 

;REG USED: A,RO 

,P2 




3794 

;REG MODIFIED: 

A,R0,P2 

' 



3795 

; NESTING: 0 





3796 

; 





3797 

KBSTS: 



0C23 

B809 

3798 

MOV 

RO,#KBDAT 


0C25 

9AF0 

3799 

ANL 

P2,^MSKPG 


0C27 

8A08 

3800 

ORL 

P2,^MEI0U 

{SELECT MEMORY MAPPED I/O 

0C29 

80 

3801 

MOVX 

A,@R0 

; INPUT KEYBOARD STATUS 

0C2A 

333F 

3302 

ANL 

A,i»'3FH 

{CHECK FOR KEY PRESSED 

0C2C 

97 

3803 

CLR 

C 

{RET FALSE IF ON KEY 

0C2D 

C630 

3304 

JZ 

KBSl 


0C2F 

A7 

3805 

CPL 

G 




3806 

KBSl: 



0C30 

83 

3807 

RET 


{RETURN 


3808 

3809 



ISlS-n MCS-48/TJP1-41 imCBO ASSEMBLER, V2.0 
PROI!HPT-^ 4 a SYSTEM MOHITOR V3.0 6 MHZ 


PAGE 34 


LOC 

OBJ 

SEO 


SOURCE 

STATEMENT 



3810 

; IF KETBOAED KEY PRESSED THEM IF CHAR * ESECDTS THEM RET CY» t 



3811 

;£LSE 

RET CY*0 



3812 

t 





3813 

?REG USED: A.R0,R6,R7.P2 



3814 

iBEG MODIFIED: 

A,R0,R6,R7,P2 



3815 

{NESTING: 2 




3816 

? 





3817 

KBDOT: 



0C31 

7410 

3818 


CALL 

GETKB 

0G33 

843B 

3819 


JMP 

STA3 



3820 

KBSTA: 



0C35 

9423 

3821 


CALL 

KBSTS 

0C37 

E642 

3822 


JNC 

STA2 { IF NO KEY PRESSED 

0C39 

7472 

3823 


CALL 

GTKEY 



3824 

STA3: 



0G3B 

03E9 

3823 


ADD 

A, ^(-EXECUTE) AND 0FFH 

0C3D 

97 

3826 


CLR 

G 

0G3E 

A7 

3827 


CPL 

C {TRUE 

0C3F 

G642 

3828 


J2 

STA2 { IF KEY = EXECUTE 

eG41 

97 

3829 


CLR 

C {FALSE 



3830 

STA2: 



0G42 

83 

3831 


RET 




3832 






3833 






3834 

{GET KEYBOARD 

HEX DIG AND BUILD VAL IN R4, R5 



3835 

; IF ROT HEX DIG , CHECK FOR PROPER DELIMITER 



3836 

? 





3837 

{REG USED: A,R0. R4.R5,R6,R7,P2,F0 



3838 

;REG MODIFIED: 

A,R0,R4,R5,R6,R7,P2,F0 

• 


3839 

{NESTING: 2 




3840 

{ 





3841 

GDGSH: 


V 

0C43 

7410 

3842 


CALL 

GETKB 

0C45 

6836 

3843 


MOV 

R0,#DPKSK 

0G47 

AF 

3844 


MOV 

R7,A 

0G48 

2348 

3845 


MOV 

A, ^48H 

0G4A 

A0 

3846 


MOV 

@R0,A 

0G4B 

FF 

3847 


MOV 

A,R7 

0C4C 

B65A 

3848 


JF0 

NTHEX 

0C4E 

2G 

3849 


XCH 

A,R4 {GET L0¥ BYTE 

0C4F 

47 

3850 


SWAP 

A {NIBBLE 1 TO NIBBLE 2 

0G3O 

AD 

3851 


MOV 

R5,A {NIB 2 TO NIB 3 

0CS1 

53F0 

3852 


ANL 

A, ^0F0H 

0C33 

4C 

3853 


ORL 

A,R4 {RESTORE NEW NIB 

0G54 

2C 

3854 


XCH 

A.R4 {NEW NIB TO NIB 1 

0C5S 

FD 

3855 


MOV 

A,R5 

0G36 

43F0 

3856 


ORI, 

A,#0F0H {SET THE HEX CHAR VALID FLAG 

0G58 

AD 

3857 


MOV 

R5,A 

0C59 

83 

3858 


RET 




3859 

NTHEX: 



0C5A 

03E9 

3860 


ADD 

A, -EXECUTE) AND 0FFH {CK IF EXECUTE 

OC5C 

C66D 

3861 


JZ 

DELOK 

0C5E 

FE 

3862 


MOV 

A,R6 

0C5F 

03EA 

3863 


ADD 

A, -NEXT) AND OFFH {CK IF NEXT 

0C61 

C66C 

3864 


JZ 

DEL02 

0C63 

FE 

3865 


MOV 

A,R6 

0C64 

03ro 

3866 


ADD 

A,^(-PPJ1V) AND OFFH {CK IF PP«EVI0US 

0C66 

C66B 

3367 


JZ 

DELOl 



3868 

GDERR: 



0C68 

E5 

3869 


SEL 

MBO 

0C69 

04FE 

3870 


JMP 

ERROR ; ILLEGAL KEY 



3871 

DELOl: 



0G6B 

17 

3872 


INC 

A 



3873 

DEL02: 



0C6C 

17 

3874 


INC 

A 



3875 

DELOK: 



0C6D 

88 

3876 


FiET 




3877 






3878 





3879 

{DISPLAY PROMPT IN COMMAND FIELD 



3880 

; 





3881 

sEEC TOED: A,a0,a2 



3882 

{REG MODIFIED: 

A,R0,R2 



ISIS- 1 1 MGS-48/I3PI-41 H4CBd ASSEMBLER, V2.0 PA€E 

PR011PT-48 SYSTEM MONITOR V3,0 6MHZ 

LOG OBJ SEO SOURCE STATEMENT 

3883 ; NESTINGS 0 

3884 ; 

3885 PRMPT: 

eG6E BABF 3886 MOV R2,^0€DSH 

0C70 BSSF 3887 MOV R0,#DIPTR+7 

0C72 C438 3888 JMP DTBLU 5 UPDATE DISPLAY 

3889 

3890 ; 

3891 ; UPDATE A DISPLAY FIELD USING HEX DATA 

3892 ; 

3893 ; EXPECTS 

3894 ?MSD PTR IN R0 

3895 ; NUMBER OF DIG IN R7 

3896 ?MS DATA PTR IN R1 

3897 ; 

3898 ;BEG USED: A, R0, R1 , B2,R7,F0 

3899 ;REG MODIFIED: A,R0,R1 ,R2,R7,F0 

3900 {NESTING: 1 

3901 * 

3902 i SPECIAL ENTRY POINT FOR 

3903 {UPDATE ADDRESS FIELD WITH ADDRESS IN WRKL/H 

3904 DAFLD: 


0C74 

B933 

3903 


MOV 

R1,#WRKH 




3906 

DADDFL: 




0C76 

B83D 

3907 


MOV 

R0,^DIPTR+5 


0G78 

BF03 

3908 


MOV 

R7.#3 


0C7A 

8490 

3909 


JMP 

UDDFL 




3910 

; UPDATE 

DATA 

FIELD Wira BYTE IN 

R4 



3911 

DDTFD: 




0C7C 

B904 

3912 


MOV 

Rl,#4 




3913 

DDAFD: 




0C7E 

B839 

3914 


MOV 

R0,^DIPTR+1 


0C80 

BF02 

3915 


MOV 

R7,^2 


0C82 

848C 

3916 


JMP 

UDDFN 




3917. 

{UPDATE 

DATA 

FIELD WITH ADDRESS 

IN R4/R5 



3918 

D45ADS 




0G84 

B905 

3919 


MOV 

Rl,^5 




3920 

DXXAD: 




0C86 

B83A 

3921 


MOV 

R0,#DIPTR+2 


0G88 

BF03 

3922 


MOV 

R7,#3 


0C8A 

8490 

3923 


JMP 

UDDFL 




3924 

{END SPEC ENTRY 




3925 

; 






3926 

UDDFN: 




0C8C 

85 

3927 


CLR 

F0 


0C8D 

95 

3928 


CPL 

F0 


0G8E 

8491 

3929 


JMP 

NXl 




3930 

UDDFL: 




0C9O 

85 

3931 


CLR 

F0 




3932 

NXl: 




0C9 1 

97 

3933 


CLR 

C 


0G92 

FF 

3934 


MOV 

A,R7 


0C93 

1296 

3935 


JB0 

DDD3 

{ IF LOW NIBBLE 

0C95 

A7 

3936 


CPL 

C 




3937 

XJDD3: 




0C96 

FI 

3938 


MOV 

A, SRI 


0C97 

E69A 

3939 


JNC 

UDD4 

{ IF LOW NIBBLE 

0C99 

47 

3940 


SWAP 

A 




3941 

UBD4: 




0C9A 

530F 

3942 


ANL 

A, ^0FH 


0C9C 

AA 

3943 


MOV 

R2,A 


0C9D 

96 AB 

3944 


JNZ 

NZl 


0C9F 

B6AD 

3945 


JF0 

NZEEO 

{ IF NOT ZERO SUPPRESS 

0CA1 

FF 

3946 


MOV 

A,R7 

{CX IF LAST DIG 

0CA2 

D301 

3947 


XBL 

A,^l 


0CA4 

C6AD 

3948 


JZ 

NZERO 


0CA6 

23FF 

3949 


MOV 

A, «^DCBL 

{BLANK DIG 

OCAS 

AO 

3950 


MOV 

, A 


0CA9 

84 AF 

3951 


JMP 

UDD2 



3.952 NZl: 

3953 

3954 

3953 N2ER0: 


OCAS 85 
0CAC 95 


CLR 

CFL 


FO 

F0 



IS IS- II MCS-48/T7PI-41 MACRO ASSEMBLER, V2.0 PACE 56 

PROiaPT-48 SYSTEM MONITOR V3.0 6MB2 


LOC 

OBJ 

SEO 


SOURCE 

STATEMENT 


0GAD 

D431 

3956 

3957 

UDD2: 

CALL 

DECHX 

•.DISPLAY DIG 

0CAF 

FF 

3953 


MOV 

A,R7 


0CB0 

37 

3959 


CPL 

A 


0CB1 

12B4 

3960 


JB0 

UDDl 

•, IF HI NIBBLE 

0CB3 

C9 

3961 

3962 

UDDl: 

DEC 

R1 


0CB4 

C8 

3963 


DEC 

R0 


0GB5 

EF91 

3964 


DJNZ 

R7, NXl 


0CB7 

83 

3965 


RET 




3966 

3968 5 GET ADDRESS VALUE FROM KEYBOARD 




3969 

; RETURN 

VALUE 

IN R4,R5 




3970 

;F0 SET 






3971 

;A=0 IF 

DEL - 

EXECUTE 




3972 

?A»1 IF 

DEL - 

NEXT 




3973 

tA=2 IF 

DEL = 

PREV 




3974 

;CY=1 IF DATA 

WAS ENTERED 




3975 

5 






3976 

?REG USED:- A.R0-R7,P2.F0 




3977 

?REG MODIFIED: 

A,RO-R7,P2,F0 




3978 

.•NESTING: 3 





3979 

? 






3980 

GADDR: 


* 

* 

0GB8 

27 

3981 


CLR 

A 


0CB9 

AC 

3982 


MOV 

R4.A 


OCBA 

AD 

3983 


MOV 

as, A 

?CLEAR INPUT BUFFER 



3984 

NXADV: 




0GBB 

9443 

3985 


CALL 

GDGSH 

?GET A DIGIT 

0CBD 

B6C7 

3986 


JF0 

DADDR 

? DELIMITER FOUND 

0CBF 

B905 

3987 


MOV 

Rl,^5 


0CC1 

B400 

3988 


CALL 

BLKDA 


0CC3 

9476 

3989 


CALL 

DADDFL 


0CC5 

84BB 

3990 


JMP 

NXADV 

- 



3991 

DADDR: 




0CC7 

AA 

3992 


MOV 

R2,A 

;SAVE DELIMITER 

0CCa 

FD 

3993 


MOV 

A,R5 


0CC9 

97 

3994 


CLR 

C 

;N0 DATA ENTERED 

0CCA 

37 

3995 


CPL 

A 


0CCB 

F2CE 

3996 


JB7 

GADDI 


0CCD 

A7 

3997 


CPL 

G 

jDATA ENTERED 



3998 

GADDI: 




0CCE 

FA 

3999 


MOV 

A,R2 

.•RESTORE DEL FLAG 

0CCF 

83 

4000 


RET 




4001 

4002 ; 

4003 ;ADD TNO ADDRESS VALUES LOCATED IN INTERNAL RAM ATO 

4004 ; PLACE RESULT IN INT RAM AT PTRX. 

4005 ;0R SUBTRACT PTR2 FROM PTRl AND 

4006 ; PLACE RESULT IN INT RAJI AT PTRl. 

4007 ; RETURN CY = 1 IF OVERFLOW ON ADDITION 

4008 ; EXPECTS PTRIL IN R0 AND PTR2L IN R1 

4009 ; 

4010 ;REG USED: A,R0,R1 

4011 ;H£G MODIFIED: A,R0,R1 

4012 ? NESTING: O 

4013 ; 

4014 ; SPECIAL ENTRY POINT FOR 

4015 ; ADDING R4,B5 TO WKUE 

4016 AWK45: 


0CD0 

B832 

4017 


MOV 

R0 9 ^WRKL 

0CD2 

B904 

4018 


MOV 


0CD4 

84DA 

40 19 


JMP 

ADDBL 



4020 

;END SPEC ENIRY 




4021 

? 





4022 

SUDBL: 



0CD6 

85 

4023 


CLR 

FO 

0CD7 

95 

4024 


CPL 

F0 

0CDS 

34DB 

4025 

4026 

ADDBL: 

JM? 

ADDl 

0CDA 

85 

4027 

4028 

ABDl: 

CLR 

F0 



ISIS- 1 1 MCS-48/t3PI-4I MACHO ASSEMHUK, V2.0 PAGE 57 
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LOC 

OBJ 

SEa 


SOURCE STATEMENT 


0CDB 

95 

4029 


GPL 

F0 


9GDG 

FI 

4030 


MOV 

A,«R1 


OGDD 

97 

4031 


GLR 

C 


0GDE 

B6E2 

4032 


JF0 

ADD2 


9G£0 

A7 

4033 


GPL 

C 


OG£l 

37 

4034 


GPL 

A 




4035 

AD02: 




0G£2 

70 

4036 


ADDG 

A,OR0 

;ADD LOW BYTE 

0GE3 

A0 

4037 


MOV 

@R0,A 

; STORE LOW SUM 

0GE4 

18 

4038 


INC 

R0 


0G£5 

19 

4039 


INC 

RI 


0GE6 

FI 

4040 


MOV 

A,@R1 


0GE7 

B6EA 

4041 


JF0 

ADDS 


0GE9 

37 

4042 


GPL 

A 




4043 

ADB3: 




0GEA 

70 

4044 


ADDG 

A* ®R0 

;ADD HI BYTE 

0GEB 

40 

4045 


MOV 

@R0,A 

; STORE HI SUM 

0GEC 

83 

4046 


RET 





4047 







4048 


1 

H 

1 

1 

H 

1 

a 




4049 

; BLANK DISPLAY 





4050 

9 






4051 

;REG USED: A,R09R7 




4052 

;BEG MODIFIED: 

A,R&,B7 




4053 

; WESTING: O 

. 




4054 







4055 

BLKI: 




0GED 

B836 

4056 


MOV 

R0,*DPMSS: 


0GEF 

2348 

4057 


MOV 

A, *4aH 


0GF1 

A0 

4058 


MOV 

eRO.A 




4059 

BLANK: 




0GF2 

B837 

4060 


MOV 

R0,#Dicirr 

;GET DISPLAY PTR 

0GF4 

BF08 

4061 


MOV 

RT.^B 

? COUNT 

0CF6 

FF 

4062 


MOV 

A,R7 


0GF7 

A0 

4063 


MOV 

@RO,A 

; INIT COUNTER 

0GFa 

18 

4064 


INC 

R0 

; POINT TO FIRST DIS CHAR 



4065 

BLKNX: 




0GF9 

23FF 

4066 


MOV 

A.^DCBL 

; DISPLAY CHAR BLANK 

0GFB 

A0 

4067 


MOV 

eR9,A 


0GFC 

18 

4068 


INC 

R0 


0CFD 

EFF9 

4069 


DJNZ 

R7, BLKNX 

;BLANK ALL DIGS 

0GFF 

83 

4070 


RET 





4071 







4072 

; BLANK DATA FIELD 




4073 







4074 

BLKOA: 




0DO0 

B838 

4075 


MOV 

R0,^DIPTR 


0DO2 

BF03 

4076 


MOV 

R7,#3 


0D04 

a4F9 

4077 


JMP 

BLKNX 




4078 







4079 

; BLANK ADDRESS 

FIELD 




4080 







4081 

BLKAD: 




0006 

B83B 

4082 


MOV 

R0,#DIPTR+3 


0008 

BF03 

4083 


MOV 

R7,^3 


0D0A 

84F9 

4084 


JMP 

BLKNX 




4085 







4086 






4087 

;GET DATA VALVE FROM KEYBOARD 




4088 

; BUILD 

VAL IN : 

R4,R5 




4089 

; RETURN VALUE 

IN R4,R5, F0 SET AND DELIMITER IN A 



4090 

* 






4091 

;REG USED: A,R0-R7,P2,F0 




4092 

;R£G MODIFIED: 

A,R0-R7,P2,F0 




4093 

; NESTING: 3 





4094 

i 






4095 

GDATA: 




0D0G 

BBO0 

4096 


MOV 

R3,^0 


0O0E 

A412 

4097 


JMP 

DAV3 




4098 

GBYTE: 




0010 

BB01 

4099 


MOV 

R3,^l 




4100 

DAV3: 




0012 

27 

4101 


GLR 

A 




ISIS-II MCS-4a/UPI-41 Hd€HO ASSEMBLER, V2.0 
PHOMPT-48 SYSTEM MOIfITOR V3.0 6MHZ 


FA€E S8 


LOC 

OBJ 

SEO 

SOORCE STATEMEDT 


0013 

AC 

4102 

MOV 

R4,A 


0014 

AD 

4103 

MOV 

R5,A 

{CLEAR -INPUT BUFFER 

0015 

A5 

4104 

4105 NX0AV: 

CLR 

FI 

{CLEAR NOT FIRST DIG FLG 

0016 

9443 

4106 

CALL 

GDGSH 

{GET A DIGIT 

0018 

95 

4107 

CPL 

F0 


0019 

B61E 

4108 

JF0 

DAV2 


001B 

95 

4109 

CPL 

F0 


00 1C 

84C7 

4110 

4111 0AV2t 

JMP 

0A00R 


001E 

7623 

4112 

JFl 

0AV1 

{ IF NOT FIRST DIG 

0020 

B400 

4113 

CALL 

BLK0A 


0022 

B5 

4114 

4115 0AV1: 

CPL 

FI 


0023 

FB 

4116 

MOV 

A,R3 


0024 

962A 

4117 

JNZ 

0AV5 


0026 

9484 

4118 

CALL 

045 AD 


0028 

A416 

4119 

4120 0AV5: 

JMP 

NXDAV 


002A 

947C 

4121 

CALL 

B0TFD 

{DISPLAY NIBBLE 

002C 

A416 

4122 

JMP 

NXDAV 




4123 

4124 






4125 ; INITIALIZE PPI 

AND MACHINE 

STATE 



4i26 ; 






4127 ?REG USED: A,R0 

,P2 




4128 ;REG MODIFIED: 

4129 ; NESTING: 1 

A,R0,P2 




4130 1 

4131 INIPPI 

• 



002E 

9AF0 

4132 

ANL 

P2,^MSKPG 


0030 

8A08 

4133 

ORL 

P2,^MEI0ir 

{SELECT MEMORY MAPPED I/O 

0032 

B843 

4134 

MOV 

R0,#PPICT 


0034 

23E0 

4135 

MOV 

A,^PPII1D 

{PPI MODE WORD 

0036 

90 

4136 

MOVX 

@KO,A 


0037 

2SFF 

4137 

MOV 

A,#TRUE 


0039 

C8 

4138 

DEC 

R0 


0B3A 

90 

4139 

MOVX 

@R0,A 

;PPI PORT C 

0B3B 

C8 

4140 

DEC 

R0 


0B3C 

530F 

4141 

ANL 

A,^0FH 


0B3E 

90 

4142 

MOVX 

@R0,A 

{PPI PORT B 

003F 

ca 

4143 

DEC 

R0 


0040 

27 

4144 

CLR 

A 


0041 

90 

4145 

4146 INI2: 

MOVX 

SR0,A 

{PPI PORT A 

0042 

27 

4147 

CLR 

A 


0043 

B809 

4148 

MOV 

R0,#KB0AT 


0045 

90 

4149 

4150 INIl: 

MOVX 

@R0, A 


0046 

0477 

4151 

CALL 

GETAC 


0048 

530F 

4152 

ANL 

A,^0DFH 


004A 

9AF0 

4153 

ANL 

P2,#MSKPG 


004G 

8A08 

4154 

ORL 

P2,^MEIO0 


004E 

B80B 

4155 

MOV 

R0,#MCHST 


0050 

90 

4156 

MO\^ 

SR0,A 


0051 

83 

4157 

RET 




0052 BSS2 
0054 B930 
0056 A462 


4158, 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 
417© 

4171 

4172 

4173 

4174 


; CHECK TWO A00RESS VAL0ES 

? IF (PTRIL/H) < OR = (PTR2L/H) THEN RETURN CY * 1 
;IF (PTRIL/H) = (PTR2L/H> THEN RETURN F0 = 1 
; EXPECTS PTRIL IN R0 ANB PTR2L IN R1 

ImC USE0: A,R0,R1,F0 
;REG HO0IFIE0t A,RO,Rl,FO 
; NESTING: 0 

i SPECIAL ENTRY POINT FOR 
CT^KTf 1 : 

MOV RO,#WREL 

MOV R1 , ^TOKIL 

JMP CK0BL 

C45UL: 



isis-ii Mcs-4a/tjpi-4i mem assembler, v 2 .o 
PB0MPT-4a system: monitor V3.0 6MHZ 


PAGE 59 


LOG 

OBJ 

SEO 

SOURGE 

STATEMERT 


0058 

B804 

4175 

MOV 

R0,^4 


0O5A 

B934 

4176 

MOV 

R1 , #UPLML 


0O5G 

A462 

4177 

JMP 

GKOBL 




4178 

?(UPLML/H - TOKL/H) 




4179 

GViOJL: 



0D5E 

B832 

4180 

MOV 

R0,*WBKL 


0060 

B934 

4181 

MOV 

R1,-»0PLIIL 




4182 

;El!n> SPEC EimCY 




4183 

f 





4184 

CKOBLj 



0062 

85 

4185 

CLR 

F0 

? RESET EOUALITY FLAG 

0063 

97 

4186 

CLR 

C 


0064 

A7 

4187 

GPL 

C 


0065 

F0 

4188 

MOV 

A,0R0 


0066 

37 

4189 

GPL 

A 


0067 

71 

4190 

AOOC 

A.@R1 

; SUBTRACT LOW BYTE 

0068 

966B 

4191 

jrrz 

CKl 


006 A 

95 

4192 

GPL 

F0 

;SET EaUAL FLAG 



4193 

CO: 



0O6B 

27 

4194 

CLR 

A 


0D6G 

18 

4195 

IRC 

R0 


0060 

19 

4196 

IRC 

R1 

;POIRT TO HI BYTE 

0D6E 

FO 

4197 

MOV 

A,@R0 


0D6F 

37 

4198 

GPL 

A 


0070 

71 

4199 

AOOC 

A,@E1 

; SUBTRACT HI BYTE 

0B71 

C674 

4200 

JZ 

GK2 


0073 

85 

4201 

CLR 

F0 

;HI BYTE ROT EOUAL 



4202 

CK2: 



0074 

83 

4203 

RET 





4204 






4205 



• 



4206 

?OECREMERT AR 

ADDRESS VALUE <R> 

TIMES 



4207 

; EXPECTS PTRIL 

IR R0 ARO <R> IN 

R7 



4208 

* 





4209 

;REG USEO: A,R0,R7 




4210 

;REG MOOIFIEO: 

A,R0,RT 




4211 

;RESTIRG: 0 





4212 

? 





4213 

mmK: 



0075 

BF01 

4214 

MOV 

R7,^l 


0077 

B832 

4215 

MOV 

R0,^WREL 




4216 

OEOBL: 





4217 






4218 

;ADO REGATIVE ( 

ORE TO PTRIL/H 




4219 




0079 

23FF 

4220 

MOV 

A, #0FFH 


0D7B 

60 

4221 

ADO 

A,@R0 


0D7C 

AO 

4222 

MOV 

«RO,A 

; STORE LOW BYTE 

0070 

18 

4223 

IRC 

R0 


0D7E 

23 FF 

4224 

MOV 

A.^0FFH 


0080 

70 

4225 

AOOC 

A,@R0 


0081 

A0 

4226 

MOV 

@RO,A 

; STORE HI BYTE 

0082 

G8 

4227 

DEC 

RO 


0083 

EF79 

4228 

OJRZ 

R7, OEOBL 

?DEC AGAIN 

0085 

83 

4229 

RET 





4230 






4231 





4232 

;MOVE ADDRESS 

VALUE FROM PTRILXH TO PTR2L/H 



4233 

;2ER0 OTPER RIBBLE OF HI. BYTE 




4234 

♦ 





4235 

? EXPECTS PTRIL 

IR R0 AND PTR2L 

IR R1 



4236 

f 





4237 

;REG TJSEO: A,RO 




4238 

;BEG MODIFIED: 

A,R0 




4239 

;RESTIRG: 0 





4240 

? 





4241 

; SPECIAL ERTRY" 

POINT FOR 




4242 

;MOVE R4,R5 TO 

PTR2L 




4243 

I1VR45: 



0086 

B804 

4244 

nov 

R0,^«^4 




4245 

;ERO SPEC ERTRY 




4246 

; 





4247 

MVREG: 





ISIS- 1 1 IfCS-48/tlPI-41 HACBO 4SSEIIBLER. V2.0 PACE 60 

PBOMPT-48 SYSTEM MOHlTOft V3.0 eMECE 


LOG 

OBJ 

sm 

SOURCE STATEHEHT 



0D88 

F0 

4248 

MOV 

A,0R0 


;GET LOIf BYTE 

0D89 

A1 

4249 

MOV 

@R1,A 


;MOVE IT 

0D8A 

18 

4250 

IKG 

R0 



0D8B 

19 

4251 

ING 

R1 



0D8G 

F0 

4252 

MOV 

A,OR0 


•get hi BYTE 

0D8D 

330F 

4253 

ANL 

A.#0FH 


;ZERO UPPER NIBBLE 

0D8F 

A1 

4254 

MOV 

®Rl.A 


;MOVE IT 

0090 

G8 

4255 

BEG 

R0 



0091 

G9 

4256 

0EC 

R1 



0092 

83 

4257 

RET 






4258 







4259 






4260 

;SET INITIAL 

ADDRESS VALUE 

IN 

INT RAM 



4261 

?EXPEGTS PTRIL IN R0 , VAH 

IN 

R1 AND VAL IN <A> 



4262 

5 






4263 

;REG USED: A, 

R0,R1 





4264 

;REC MODIFIED: A.RO.Rl 





4265 

; NESTING; 0 






4266 

; 






4267 

;SPEGIAL ENTRY POINT FOR 





4268 

;SET UPLML = 

MEMORY MAX 





4269 

SEULMX; 




0093 

B903 

4270 

MOV 

R1.#MEPG3 





4271 

SEULX: 




0095 

B834 

4272 

MOV 

R0,#UPLML 



0097 

23FF 

4273 

MOV 

A.^MEMAX 



0099 

A4A3 

4274 

JMP 

PRSET 





4275 

;SET UPLMH ® 

MEMORY PAGE 1 





4276 

SETPl; 




009B 

B90t 

4277 

MOV 

Rl.^^^MEPGl 



0D90 

A4A3 

4278 

JMP 

PRSET 


• 



4279 

5 






4280 

;SET mKL/n » 0/0 





4281 

SEWK0: 




009F 

B832 

4282 

MOV 

R0,#WRKL 





4283 

SET00; 




0DA1 

27 

4284 

GLR 

A 



0DA2 

A9 

4285 

MOV 

R1,A 





4286 

?EN0 SPEC ENTRY 





4287 

* 






4288 

PRSET: 




0DA3 

A0 

4289 

MOV 

OR0,A 


tSTORE LOW BYTE 

0DA4 

18 

4290 

INC 

ItO 



00A5 

F9 

4291 

MOV 

A.Rl 



0DA6 

A0 

4292 

MOV 

@Re,A 


; STORE HI BYTE 

0DA7 

33 

4293 

RET 






4294 







4295 

• 3(6— jf:— 





4296 

; FETCH FORM EXTERNAL RAM , 

ONE 

BYTE OF DATA TO <A> 



4297 

;ADD BASE TO 

POINTER 





4298 

; EXPECTS PTR 

I N R0 





4299 

5 PTR POINTS TO LS BYTE OF EXTERNAL MEM A0DRESS 



4300 

; RETURN BATA 

IN <A> 





4301 

f 






4302 

;REG USED: A, 

R0-B2.P2 





4303 

?REG MODIFIED: A.R0-R2,P2 





4304 

; NESTING: 1 






4305 

• 






4306 

.-SPECIAL ENTRY POINT FOR 





4307 

; FETCH DATA(VRKL/H> 





4308 

FEl-mK: 




00A8 

B832 

4309 

MOV 

R0,*WRKL 





4310 

;EN0 SPEC ENTRY 





4311 

f 






4312 

FEX0A: 




0DAA 

S4AS 

4313 

CALL 

FEXl 



00AC 

31 

4314 

MOVX 

A,@R1 


5 GET DATA 

0DA0 

83 

4315 

RET 






4316 

FEXl: 






4317 







4318 

; IF A00R > IK THEN EXT MEM 

KITH BASE 0 



4319 





00AE 

18 

4320 

INC 

R0 





ISIS- 1 1 MCS-48/OTI-41 MACRO ASSETIBLER, 
PROMPT-48 SYSTEH MOHITOR VO.0 6MHZ 


VZ.0 


PACTS 61 


LOG 

OBJ 

SEO 

SOURCE 

; STATEMENT 

0DAF 

F0 

4321 

MOV 

A,OR0 

0DBO 

G8 

4322 

DEC 

R0 

0DB1 

530C 

4323 

ANL 

A, ^0CH 

0DB3 

G6G2 

4324 

JZ 

FEX2 

0DB5 

9AF0 

4325 

AWL 

P2f^MSKPG 

0DB7 

8A08 

4326 

ORL 

P2,^MEI0U 

0DB9 

B90A 

4327 

MOV 

RU^EXMEM 

0DBB 

91 

4328 

MOVX 

0R1«A 

0DBG 

F0 

4329 

MOV 

A,OR0 

0D6O 

AA 

4330 

MOV 

R2,A 

0D8E 

18 

4331 

INC. 

R0 

0DBF 

F0 

4332 

MOV 

A,®R0 

0DC0 

A4CB 

4333 

' JMP 

FEX3 



4334 

FEX2: 


0DC2 

B92A 

4335 

MOV 

R1,#6ASEL 

0I)C4 

F0 

4336 

MOV 

A,@R0 

0DC5 

61 

4337 

ADD 

A.ORl 

0DC6 

AA 

4338 

MOV 

B2,A 

0DC7 

18 

4339 

INC 

R0 

0DG8 

F0 

4340 

MOV 

A,®R0 

0DC9 

19 

4341 

INC 

R1 

0DCA 

71 

.4342 

ADDC 

A,@R1 



4343 

FEX3: 


0DCB 

330F 

4344 

ANL 

A, #0FH 

0DCD 

A9 

4343 

NOV 

R1,A 

0DCE 

0A 

4346 

IN 

A,P2 

0DCF 

53F0 

4347 

ANL 

A,^0F0H 

0DD1 

49 

4348 

ORL 

A»R1 

0DD2 

3A 

4349 

OUTL 

P2,A 

0003 

C8 

4350 

DEC 

R0 

0DD4 

FA 

4351 

MOV 

A,R2 

0DD5 

A9 

4352 

MOV 

Rl,A 

0DB6 

83 

4353 

4354 

RET 




4353 





4356 

;PUT CODE IN 

USER RAM 



4357 

* 




4358 

rREG USED: A, 

R0,R1,R7,P2 



4359 

?REG MODIFIED 

A,R0,R1,R7, 



4360 

{NESTING? 0 




4361 

; 




4362 

CODE: 




4363 

; INUS0: 


0DD7 

2F 

4364 

XCH 

A,R7 

ODDS 

C5 

4365 

SEL 

RB0 

0DD9 

E5 

4366 

SEL 

I^IBO 

0DDA 

83 

4367 

RET 




4368 

5 INUSl: 


0DDB 

2F 

4369 

XCH 

A,R7 

ODBC 

00 

4370 

NOP 


0DDD 

ED 

4371 

SEL 

MB0 

ODBC 

83 

4372 

RET 




4373 

; INUS2: 


0DDF 

2F 

4374 

XCH 

A,R7 

0DE0 

C5 

4375 

SEL 

RB0 

0DE1 

F5 

4376 

SEL 

MBl 

0DE2 

83 

4377 

RET 




4378 

;INUS3; 


ODES 

2F 

4379 

XCH 

A,R7 

0DE4 

00 

4380 

NOP 


0DE5 

F5 

4381 

SEL 

MBl 

0DE6 

83 

4382 

4383 

RET 




4334 

;END TABLE 




4385 

4386 

4387 

GODEl: 




4388 

;PTJT RSaiTER CODE lU DSER I 



4389 



0DE7 

BSFO 

4390 

MOV 

R©,i«0F0H 

0DE9 

B9D7 

4391 

MOV 

R1,#<C0DE 

0DEB 

BFIO ,, 

4392 

MOV 

R7,^16 

0DED 

9AF0 

4393 

ANL 

P2,‘*KSKPG 


;SET PAGE PTR 



ISIS-II MCS-48/t3FI-41 MACKO ASSEMBUai, Va.O 
FB0I!PT-4a SYSTEM MONITOE V3.0 6MaZ 


PAGE 42 


LOG 

OBJ 

SECl 

SOURCE STATEMEIfT 



0DEF 

8A0r 

4394 

ORL P2,^MEPG7 





4395 

C0DE2: 



0DF1 

F9 

4396 

MOV A,R1 



e0F2 

A3 

4397 

MOVP A, OA 


;GET CODE FROM TABLE 



4398 

IF ((CODE AND 0FFO0H) LT < S 

AND 0FF00H)) 



4399 

MOV A,SPERR ;SAME PAGE ERROR 



4400 

END IF 



0DF3 

90 

4401 

MOVX OR0,A 


lOOTPlJT CODE 

0DF4 

18 

4402 

INC R0 



0DF5 

19 

4403 

INC R1 



0DF6 

EFFl 

4404 

DJNZ R7,C0DE2 


; STORE NEXT BYTE 

0DF8 

83 

4405 

RET 





4406 

• 





4407 






4408 

; INCREMENT ADDRESS VALUE IN 

INTERNAL RAM 



4409 

; EXPECTS PTRIL IN R0 





4410 

; 





4411 

;REG USED: A,R0 





4412 

;REG MODIFIED: A,R0 





4413 

; NESTING: 1 





4414 

• 

f 





4415 

; SPECIAL ENTRY POINT FOR 





4416 

; INC VRKL/H AND TOKIL/H 





4417 

INW2: 



0DF9 

B82E 

4418 

MOV R0,#WRE2L 



0DFB 

B4FF 

4419 

CALL INDBL 





4420 

INVRK: 



OBFD 

B832 

4421 

MOV R0 . #WRKL 





4422 

;END SPEC ENTRY 





4423 

f 





4424 

INDBL: 



0DFF 

F0 

4425 

MOV A,@R0 


?GET LOW BYTE 

0E00 

0301 

4426 

ADD A,^l 


5 INC LOW BYTE 

0E02 

A0 

4427 

MOV 0RO,A 


{STORE LOW BYTE 

0EO3 

18 

4428 

INC R0 



0E04 

27 

4429 

CLR A 



0E05 

70 

4430 

ADDC A,®R0 


; INC HI BYTE IF CY « 

0EO4 

A0 

4431 

MOV @RO,A 


? STORE HI BYTE 

0E07 

83 

4432 

RET 





4433 






4434 






4435 

; STORE DATA IN EXTERNAL RAM 





4436 

; EXPECTS PTR IN R0 AND DATA 

IN 

R4 



4437 

;PTR POINTS TO LS BYTE OF EXTERNAL MEM ADDRESS 



4438 

;ADD BASE TO POINTER 





4439 

? 





4440 

;REG USED: A,R0, R1 , R2,R4,P2 





4441 

5REG MODIFIED: A,R0,R1 ,R2,P2 





4442 

; NESTING: 1 





4443 

» 





4444 

; SPECIAL ENTRY POINT FOR 





4445 

; STORE AT VRKL/H 





4446 

STOWK: 



0E08 

B832 

4447 

MOV R0,#WRKL 





4443 

;END SPEC ENTRY 





4449 

» 





4450 

SEXDA: 



0E0A 

B4AE 

4451 

CALL FEXl 



0EOC 

FC 

4452 

MOV A,R4 



0EOO 

91 

4453 

MOVX @R1,A 


{STORE DATA 

0EOE 

81 

4454 

MOVX A, @R1 


5 CLEAR EXMEM FF 

0E0F 

33 

4455 

RET 





4456 






4457 






4458 

;SAVE R0,R1,B2,R3 AND A (OF : 

BANK 0) IN INTERNAL 



4459 

;RAM AT IIEIIORY BOTTOM. 





4460 

9 





4461 

;REG USED: A,B24,R25,K31,R0-R3 




4462 

?REG MODIFIED; il24,B25,R31 





4463 

; NESTING: 0 





4464 






4465 

PUSH: 



0E10 

Do 

4466 

SEL HBl 


. 



ISIS-II IlC3-4a/!JPI-4i mCBO ASSEHBLER, V2.0 PACT 6S 

PROMPT-48 SYSTEM MORITDR V3.0 61fflZ 


LOG 

OBJ 

sm 

SOURCE STATEMENT 


0E11 

B820 

4467 

MOV 

RO,#IMBOT 

;MEM PTR 

0E13 

BF04 

4468 

MOV 

R7,^4 

;REG COUNT 

0E15 

B900 

4469 

MOV 

R1,^0 

;REG PTR 

0E17 

AO 

4470 

MOV 

0RO,A 

; STORE A 

OEia 

18 

4471 

INC 

R0 


0E19 

AA 

4472 

MOV 

B2,A 




4473 

PUSNX: 



0E1A FI 

4474 

MOV 

A,@R1 


0E1B 

AO 

4475 

MOV 

SRO,A 

; STORE REG 

0E1C 

18 

4476 

INC 

R0 


OEIO 

19 

4477 

INC 

R1 


0E1E 

EFIA 

4478 

DJNZ 

R7, PUSNX 

?PUSH NEXT REG 

OE20 

FA 

4479 

MOV 

A,R2 


0E21 

93 

4480 

RETR 





4481 






4482 






4463 

; RESTORE TO BANK 0 R0-R3 AND A. 

THE 



4484 

; SAVED DATA AT 

INTEBITAL RAM HEMOEY BOTTOM. 



4485 

; 





4486 

;HEG USED: A,R24,B25,R31 ,R0-R3 




4487 

;REG MODIFIED: 

A,R24,R25,R3I,R0 

-R3 



4488 

; NESTING: 0 





4489 

5 





4490 

POP: 



0E22 

D5 

4491 

SEL 

RBI 


0E23 

B824 

4492 

MOV 

R0,#II!BOT+4 

?MEM PTR 

0E25 

BF04 

4493 

MOV 

R7,#4 

;REG COUNT 

0E27 

B903 

4494 

MOV 

R1 , ^3 

; REG PTR 



4495 

POPNX: 



0E29 

FO 

4496 

MOV 

A,@R0 

•,POP REG 

0E2A 

A1 

4497 

' MOV 

@R1,A 

;R^TORE REG 

0E2B 

C9 

4498 

DEC 

R1 


0E2C 

ca 

4499 

DEC 

R0 


0E2D 

EF29 

4500 

DJNZ 

R7, POPNX 

; RESTORE NEXT REG 

0E2F 

FO 

4501 

MOV 

A,@R0 

j RESTORE A 

OE30 

93 

4502 

RETR 





4503 






4504 






4505 

; EXTERNALLY REFERENCED ROUTINE 




4306 

; DECODE HEX DIG TO 7 SEGMEITT AND UPDATE DISPLAY TBL. 



4507 

5 EXPECTS HEX DIG IN R2 (OH-FH) 

AND CHAR Pra IN R0 



4308 

5 





4509 

?REG USED: A,R0 

,R2 




4510 

;REG MODIFIED: 

A 




4511 

; NESTING: 0 





4512 

? 





4313 

DECHX: 



0E3I 

FA 

4514 

MOV 

A,R2 


0E32 

530F 

4515 

ANL 

A,^0FH 


0E34 

033B 

4516 

ADD 

A.^<CHPTR AHD 0FFH) 



4517 






4518 

;MASK ADD TO BYTE VAL 




4519 






4520 

SAME2: 



0E36 

A3 

4521 

MO VP 

A,@A 

5 GET CHAR FROM TABLE 

0E37 

AA 

4522 

MOV 

R2.A 




4523 






4524 

1 

1 

1 

1 

1 

1 

1 

1 

1 



4325 ; EXTERNALLY REFERENCED ROBTIIIE 

4526 ; DISPLAY TABLE UPDATE 

4527 j EXPECTS 7 SEGMENT CHAR IN R2 ATO) CHAR PTR IN RO 

4528 • 

4529 i^UEG USED: A,R0,R2 

4530 ;REG MODIFIED: A 

4531 I NESTING: 0 

4532 ; 

4533 DTBLU: 

4534 MOV A, R2 

4335 HOV @RO,A 

4536 RET 

4537 • 

4538 i TABLE OF 7 SEGMENT CHARACTORS 

4539 ? 


0ESS FA 
0E39 A0 
0E3A S3 


; UPDATE BUFFER 



ISIS-II MCS-4a/^I-4i MACRO ASSmSlSR, V2.0 PACE 64 

PBI}l3PT-4a BYSrm MOITITOR V3.0 6MHZ 


LOG 

OBJ 

SEO 

SOURCE 

STATEMENT 




4540 

CHPTR: 



0E3B 

C0 

4541 

DB 

1 1000000B 


0E3G 

F9 

4542 

DB 

1111100IB 

’ r 

0E3D 

A4 

4543 

DB 

I0100100B 


0E3E 

B0 

4544 

DB 

10110000B 

’3* 

0E3F 

99 

4545 

DB 

100110018 

’4’ 

0E40 

92 

4546 

DB 

10010010B 


0E41 

82 

4547 

DB 

1 00000 10B 

♦6’ 

0E42 

F8 

4548 

DB 

1111 1OO0B 

j’7’ 

0E43 

80 

4549 

DB 

10000000B 

1 ^8’ 

0E44 

98 

4550 

DB 

100110008 

; *9’ 

0E45 

88 

4551 

DB 

1O001000B 

1 ’A’ 

0E46 

83 

4552 

DB 

100000UB 

; ’B’ 

0E47 

C6 

4553 

DB 

1 10001 lOB 

1 'C’ 

0E48 

A1 

4554 

DB 

101000016 s’D* 

0E49 

86 

4555 

DB 

100001 10B 

•E’ 

0E4A 

SE 

4556 

DB 

100011108 

• j.. 


4557 IF (CSAME2 ATO 0FFO0H) LT ( S AlfD 0FFO0H) ) 

4558 MOV A^SPERR ;SAME PAGE ERROR 

4559 ETOIF 

4560 
456 1 ; 

4562 ; OUTPUT A MESSAGE TO DISPLAY 

4563 ; 

4564 (REG USED: A«R0,E1 

4565 ;REG MODIFIED: A,R0,Ri 

4566 (NESTING: 0 

4567 ; 

4568 MESG: 


0E4B 

B836 

4569 


MOV 

R0,#DPMBiC 

0E4D 

27 

4570 


CLR 

A 

0E4E 

A0 

4571 


MOV 

®R0,A 

0E4F 

BBSS 

4572 


MOV 

R0.#DIPTR 



4573 

MESGl: 



0E51 

F9 

4574 


MOV 

A,R1 

0E52 

A3 

4575 


NOVP 

A,@A 

0E53 

9656 

4576 


JNZ 

MESG2 

0E55 

83 

4577 


RET 




4578 

MESG2: 



0E56 

AO 

* 4579 


MOV 

@R0,A 

0E57 

13 

4580 


INC 

R0 

0E58 

19 

4581 


INC 

R1 

0E59 

C451 

4582 


JMP 

IlESGl 



4583 

ERTBL: 



0E5B 

AF 

4584 


DB 

DCLCR, DCLCR^BCE, 0 

0E5C 

AF 





0E5D 

86 





0E5E 

00 







4585 

P41TBL: 



0E5F 

F9 

4586 


DB 

DC1,DC4,DC7,DC8,0 

0E60 

99 





0E61 

FS 





0E62 

80 





0E63 

00 







4587 

P48TBL: 



0E64 

80 

4588 


DB 

DC8,DC4,DC7,DC8,0 

0E65 

99 





0E66 

F8 





0E67 

80 





0E68 

00 







4589 

P55TBL: 



0E69 

92 

4590 


DB 

DC5,DC5,DC7,IK:a,0 

0E6A 

92 





0E6B 

F8 





0E6G 

80 





0E6D 

00 







4591 

INTBL: 



0E6E 

CO 

4592 


DB 

!)C0,DCEa,DC5,DC5 

0E6F 

B7 





0E70 

92 





0E71 

92 





0E72 

36 

4593 


DB 

DCS,DCC,DCC,DCA.0 

0E73 

C6 







ISIS- 1 1 MCS-48/OTI-41 mCBO ASSEMBLER, V2.9 
PBOMPT-48 STOTEM MONITOR V3.0 6MHZ 


PAGE m 


LOC OBJ 


SEQ SOURCE STATEMENT 


0E74 C6 
0E75 88 
0E76 00 

4594 IF ((MESGl ARD 0FF00H) LT ( S ARD 0FFO0ID > 

4595 MOV A,SPERR ;SAWE PAGE ERROR 

4596 EROIF 

4597 

4598 ; 

4599 ;GET USER ACCESS BYTE 

4600 ; 

4601 ;REG USER: A,R0,P2 

4602 ;REG MODIFIED: A,R0,P2 

4603 jRESTIRG: 0 
•4604 ; 

4605 GETAC: 


0E77 

9AFO 

4606 


ARL 

P2,^MSKPG 

0E79 

6A01 

4607 

4608 


ORL 

P2.^MEPG1 



4609 

;GET USER ACCESS BYTE 



4610 




0E7B 

BSD9 

4611 


MOV 

R0,#AXPTR 

0E7D 

80 

4612 


MOVX 

A,SR0 ;GET ACCESS BYTE 

0E7E 

9280 

4613 

4614 

GA2: 

JB4 

GAl 

0Ea0 

A8 

4615 


MOV 

R0,A 

0C81 

03F4 

4616 


ADD 

A.^-CLAXTBL-AXTBL) ARD 0FFH 

0E83 

■F8 

4617 


MOV 

A,R0 

0Ea4 

8809 

4618 


MOV 

R0,^AXPTR 

0E86 

E689 

4619 


JRC 

GA3 

0E88 

27 

4620 


CLR 

A 



4621 

GA3: 



0E89 

0393 

4622 
^ 4623 

SAME3: 

ADO 

A, AXTBL ARD 0FFH) 

©E8B 

A3 

4624 


MOVP 

A,@A ;GET TABLE VALUE 

0E8C 

83 

4625 

4626 

GAl: 

RET 


0E8D 

0306 

4627 


AOO 


0E8F 

530F 

4628 


ARL 

A,^0FH 

0E91 

G480 

4629 

4630 

4631 

AXTBL: 

JMP 

GA2 



4632 

;BIT0 

+PROMER 




4633 

;BIT1 

•fUSRAC 




4634 

?BIT2 

-OUTEX 




4635 

;BIT3 

-rai'lEM 




4636 

;BIT4 

-P0WR 




4637 

;BIT5 

+RERTER 




4638 

;BIT6 

-RUN 




4639 

4640 

;BIT7 

+XTRL 




4641 

4642 

; ACCESS 

CODES 0 

TO 5 

0E93 

64 

4643 


DB 

01100100B 

0E94 

F4 

4644 


OB 

11110100B 

0E95 

66 

4645 


OB 

011O0110B 

0E96 

60 

4646 


OB 

01100000B 

0E97 

F0 

4647 


OB 

1 1 1 10000B 

0E93 

62 

4648 

4649 


OB 

01100010B 



4650 

? ACCESS 

CODES 10 TO 15 



4651 




0E99 

6C 

4652 


DB 

01101100B 

0E9A 

FC 

4653 


DB 

11111100B 

0E9B 

6E 

4654 


OB 

01101110B 

0E9G 

68 

4653 


DB 

01101000B 

0E9D 

F3 

4636 


OB 

11 1 1 10O0B 

0E9E 

6A 

4657 

4658 

LAXTBL: 

OB 

01101010B 



4659 

IF ((SAHE3 AHD OFF0OH) LT ( $ MB 0FF00H) ) 



4660 

MOV 

A,SPERR 

;SAME PAGE EPJIOR 


4661 EinilF 

4662 IfRElA: 

4663 



ISIS- 1 1 JfCS-4a/OTI-41. M^CBO ASSEMBLER, V2.0 
PROMPT-48 STSTEM MORITOR V3.0 6MaZ 


PACE 66 


LOC OBJ SEO SOURCE STATEMEITT 

4664 ;IF TOKl > IE THEN ENABLE EXTERNAL ACCESS 
4663 


0E9F 

B831 

4666 

4667 VR3CA: 

MOV 

R0,^WK1H 

0EA1 

F0 

4668 

MOV 

A,®R0 

0EA2 

530C 

4669 

ANL 

A,^0CH 

0EA4 

C6AF 

4670 

JZ 

GETAl 

0EA6 

9AF0 

4671 

ANL 

P2,^MSKPG 

0EA8 

8A08 

4672 

ORL 

P2,^MEI0U 

0£AA 

B83B 

4673 

MOV 

R0,^MCHST 

0EAC 

2390 

4674 

MOV 

A,^90K 

0EAE 

90 

4675 

4676 GETAl: 

MOVX 

0R0,A 

0E/IF 

83 

4677 

RET 



4678 

4679 ; 

4680 ; 

4681 COPYRIGHT: 

0EB0 28432920 4682 DB ’(C) 1976,1977 INTEL COUP’ 

0EB4 31393736 

0EBS 2C3 13937 

0EBC 3720494E 

0EC0 54454C20 

0EC4 434F5250 

0ECa 56433233 4683 DB ’VERSION 3.0’ 

0ECC 494F4E20 
0EDO 332E30 

4684 t 

4685 ? 

4686 $ 

4687 END 


USER SYMBOLS 
ACCl 054C 

ACC2 

0548 

AGC3 

0534 

ACC4 

0545 

ACCS 

0528 

AGCES 

0524 

Acrra 

0080 

ADDl 

0GDB 

ADD2 

0CnE2 

ADDS 

0GEA 

ADDBL 

0CDA 

ADDUT 

086A 

ASMAX 

00DD 

ASPTR 

00DD 

AWK45 

0CD0 

AXMAX 

00D9 

AXPTR 

00D9 

AXTBL 

0E93 

BASER 

002B 

BASEL 

002A 

BIASH 

0023 

BIASL 

0027 

BLANK 

0CF2 

BLK 

07DC 

BLKAD 

0D06 

BLKDA 

0D00 

BLKI 

0CED 

BLKNX 

0CF9 

BREAK 

0010 

BRKl 

023F 

BBK10 

0233 

BRK2 

0231 

BRIC3 

022E 

BHK4 

024E 

Bms 

026F 

BRK6 

0268 

BRK7 

0271 

BRK3 

027F 

BRK9 

023C 

BRKPT 

0215 

BRTBL 

OISF 

BRTCH 

01 AT 

BXMAX 

0008 

BXPTR 

00C9 

C45UL 

0D53 

CDTBL 

01CF 

CHPTR 

0E3B 

Cl 

07F8 

CIl 

06DE 

CKl 

0D6B 

CK2 

0D74 

GKA510 

0BAA 

CKD 

08F4 

GKDBL 

0D62 

CKMB 

0026 

CKMD 

08F0 

CKSUM 

0026 

CL5 

0000 

CL6 

0004 

CL7 

0008 

CL8 

000C 

CLEAR 

04E7 

CLERR 

0010 

CLRNX 

04EE 

CMDEl 

015B 

CMDEN 

0162 

CMDLV 

0151 

CMDMD 

0156 

CO 

07FA 

COl 

06 IF 

CODE 

0DD7 

CODEl 

0DE7 

C0DE2 

0DF1 

COMD 

0023 

COMPl 

09F7 

C0MP2 

09F0 

C0MP4 

09FE 

COMPS 

09E7 

C0MP6 

09 E9 

GOMPAR 

04E1 

COfJPX 

09E3 

CONV 

06E7 

CONVl 

06F0 

COPYRI 

0£B0 

CR 

000D 

CRLF 

0797 

CSl 

07BC 

GSTS 

07F6 

CWKDL 

0D5E 

CWKWl 

0D52 

D10US 

0A25 

D20US 

0A1D 

D45AD 

0084 

D8741 

0001 

08748 

0000 

D8755 

0002 

DADDFL 

0C76 

DADDR 

0CC7 

DAFLD 

0C74 

DATKY 

0012 

DAVl 

0D23 

DAV2 

0D1E 

DAV3 

0D12 

DAV5 

0D2A 

DG0 

00C0 

DCl 

00F9 

DC2 

00A4 

DCS 

00B0 

DC4 

0099 

DC3 

0092 

DC6 

0082 

DC7 

00F8 

DCS 

0080 

DC9 

0098 

DCA 

0088 

DCB 

0083 

DCBL 

00FF 

DCC 

00C6 

DGD 

00A1 

DGDSH 

00BP 

DCE 

0086 

DCEa 

00B7 

DCES 

000E 

DCF 

008E 

DCG 

00C2 

DCH 

0089 

DCL 

00C7 

DCLCC 

00A7 

DCLCM 

00AB 

DCLCO 

00 A3 

DCLCR 

00 AF 

DCLCU 

00E3 

DCP 

007F 

DCPC 

008G 

DCU 

00C1 

DDAFD 

0G7E 

DDTFD 

0C7C 

DECHX 

0E31 

DEDBL 

0D79 

DELI 

07A8 

DEL2 

07 AA 

DEL3 

07A2 

DELAY 

07 A0 

DELOl 

0C6B 

DEL02 

0C6C 

DELOK 

0C6D 

mmK 

0D75 

DG0PT 

0010 

DGIPT 

0011 

DG2PT 

0012 

DG3PT 

0013 

DG4PT 

0014 

DG5PT 

0013 

D€^6PT 

0016 

DG7PT 

0017 

DGOUT 

07ED 

DGSTG 

07F3 

DICNT 

0037 

.DIPAW 

0C0D 

DIPGA 

0C04 

DIPTR 

0038 

DPIMSK 

0036 

DSR 

0080 

DTBLU 

0£3a 

DTK 

0002 

DTYPE 

0AA2 

DUTDEN 

0000 

DUTDIN 

0001 

DXXAD 

0C86 

EA 

0020 

ECKEY 

0B9D 

Em 

0A78 

mz 

0A70 

EM7 

0A8B 

EH8 

0A87 

Eimm 

039E 

ERODE 

0029 

EMSBl 

0BO8 

EMSB3 

0AFA 

EJSB4 

0A7D 

EMSUB 

0A6E 

mmi 

0080 

ENREF 

07DF 

ENRFS 

0BFA 

ENT 10 

0409 

ENTll 

0442 

ENT13 

0443 

EITT14 

03B7 

ENTIS 

0435 

ENT2 

03F1 

ENT4 

0406 

EITT3 

0421 

ENT7 

03BF 

ENTS 

048D 

ENT3A 

04CG 

ENT9 

03D3 

ENTER 

03A6 

ERRl 

OlOA 

ERROR 

GOFE 

£RR¥ 

0103 

ERTBL 

0E5B 

EXECUT 

0017 

EX^iEH 

00OA 

ZirTBL 

OAAD 

FALSE 

0000 

FEDUT 

0836 

FETl 

0802 

FETCH 

04E4 

FETDT 

0800 

FET/RK 

0DAS 

FEXl 

©DAE 

FEK2 

0BC2 

FEX3 

0DCB 

FEXDA 

ODAA 

GIPRFI 

0BB2 

G2PBII 

0BB6 

G3PRM 

03BA 

GAl 

0ESB 

GA2 

0E80 

GAS 

0ES9 

GADDI 

0GCS 

GADBR 

0CB8 

GAMl 

0020 

GAM2 

0040 

GBMl 

0004 

GBYTE 

0D10 

GDATA 

0D0C 

GDEKR' 

0C68 

GDGSH 

0C43 

GDUTD 

085B 

GETl 

0B5S . 

GET2 

0B2F 

GETS 

OB 19 

GETAl 

OEAF 

GETAG 

0E77 

GETEB 

0B10 

GEXTY 

OASD 

GGOTY 

0A94 

GOAGN 

029A 

GOCMD 

0283 


i 



IS IS- 1 1 MCS-4e/t3FI-4l mCBO ASSEMBLER, V2.e FAC® 6T 

PROOTT-48 SYSTEM MONITOR V3.0 6MHZ 


GOSSl 

02A2 

60SS2 

02fiF 

G0SS3 

02EA 

G0SS4 

02D9 

Qxmsn 

02Fa 

G0SS6 

02 ir? 

GOS01 

0A4D 

GGSU2 

OASC 

GOSUB 

0A43 

GOTBL 

OAAA 

GTKEY 

0B72 

GTPO 

OBDO 

GTPl 

OBDF 

GTP2 

OBDC 

GTP3 

OBGS 

GTP4 

OBBE 

GTP5 

0BD6 

GTPRJI 

OBBG 

GTTBL 

0BF7 

GTYl 

0AF3 

GTY2 

0AF6 

GTY3 

0AF7 

GTY4 

OAFS 

GTY5 

0AE2 

GTYPE 

OABO 

HEXAR 

01F7 

HXOUT 

07F0 

IMBOT 

0020 

IMTOP 

003F 

INDBL 

ODFF 

INIl 

0D46 

INI2 

0D42 

INIS 

012B 

INI4 

0133 

IN 15 

013A 

INIPPI 

0D2E 

INIT 

OlOD 

INTBL 

0E6E 

INUSO 

OSFO 

INUSl 

03F4 

INUS2 

03F8 

INUS3 

03FC 

INWC2 

0DF9 

INTWRK 

ODFD 

lOMAX 

ooca 

lOPTR 

00G5 

KBDAT 

0009 

KBDOT 

0031 

EBIK 

07E7 

KBSl 

OC30 

KBST 

07E4 

KBSTA 

0G35 

KBSTS 

0C23 

KDBIN 

07EA 

KEY 

0B62 

KEYl 

OBSE 

KEY2 

oBsa 

KEYOK 

0B91 

KOK 

0B53 

LAXTBL 

0E9F 

LEAD 

0639 

LEADl 

0664 

LEAD2 

0660 

LF 

OOOA 

MB0VE 

0463 

MBIRT 

0028 

MBIVE 

04A2 

MCHST 

OOOB 

MEIOU 

0008 

MEMAX 

OOFF 

i^iemmd 

0000 

MEPG0 

0000 

MEPGl 

0001 

MEPG2 

0002 

MEPG3 

0003 

MEPG4 

0004 

MEPG5 

0005 

MEPG6 

0006 

MEPG7 

0007 

MESG 

0E4B 

MESGl 

OESl 

MESG2 

0E56 

MODE 

OOCF 

MONRT 

0ODG 

MOVE 

0S4F 

MSKTG 

OOFO 

MVl 

0S9C 

MV2 

05B2 

MVS 

0592 

MV4 

05AF 

MVS 

0SA3 

MVR45 

0D86 

MVREG 

0D88 

NEXT 

0016 

NIBl 

06CG 

NIB2 

06C8 

NIBBLE 

06Bd 

NOKEY 

0B6B 

N0T4 

0B8D 

N0T5 

0B8F 

NTO 

0038 

NTl 

003G 

NT4 

OBSl 

NTS 

0BS3 

NTHEX 

0C5A 

NXl 

0C91 

NXADV 

OCBB 

NXBRK 

0235 

NXDAV 

0D16 

NZl 

OGAB 

N2ER0 

OCAD 

ORIl 

08ED 

0RI2 

08D5 

ORIS 

08GD 

0R14 

085C 

ORIS 

08EA 

0RI6 

08B0 

0RI7 

oacA 

ORIENT 

0886 

ORTST 

0080 

POL IN 

0008 

P2DEF 

04FB 

P2MAX 

OOOB 

P2PTR 

OODB 

F41TBL 

0E5F 

F48TBL 

0E64 

P55TBL 

0E69 

PAGEl 

0OFF 

PAI 

0010 

PBI 

0002 

PBYTE 

05F8 

PCIL 

0001 

PCUI 

0008 

PENB 

0010 

PEVEN 

0020 

PO 

07FE 

POP 

0E22 

POPNX 

0E29 

PPICT 

0043 

PPIMD 

0OE0 

PPIPA 

0040 

PPIPB 

0041 

PPIPC 

0042 

PRA 

O50D 

PRB 

O50A 

PBBYTE 

0025 

PRC 

0521 

PREV 

0010 

PRGl 

0990 

PRGIO 

0955 

PRGll 

0973 

PRG12 

09 BG 

PRG13 

098C 

PRG2 

09CE 

PRG3 

09BD 

PRG4 

09D4 

PRG5 

0964 

PRG6 

0960 

PRG7 

0917 

PRG8 

092B 

PRG9 

093E 

PRGKY 

0011 

PROTT 

0C6E 

PRMTBL 

0934 

PROG 

0040 

PROMS 

0510 

PROMEN 

0001 

PROJIP 

0501 

PRPRO 

08FC 

PRSET 

0DA3 

PULI 

0A06 

PUL2 

0A1O 

PULPRO 

OAOA 

PUSH 

OE10 

PUSNX 

OEIA 

ROTMP 

00 IB 

RI6X 

0002 

RIX 

0001 

R64X 

0003 

RBYTE 

06F3 

BEAD 

0669 

BEAD2 

06B2 

READS 

0672 

READ4 

06B0 

READS 

0698 

READ6 

0696 

BEDUN 

0B93 

REFl 

OSFO 

REF2 

05CF 

REFS 

05D4 

REFS 

07E2 

REFSH 

05C1 

REGKY 

0013 

REGMD 

OOFF 

RESOL 

OBSl 

RESTOR OOFD 

RETGO 

029C 

HETGS 

02A4 

RETSS 

029C 

RFR 

^020 

RGMAX 

OOG4 

RGPTR 

0080 

RGTOP 

OOBF 

RI 

07FC 

RIOS 

0632 

RIIO 

0647 

RI15 

0654 

RI20 

0658 

RNPTR 

OODA 

ROV 

0010 

RPAR 

BXEN 

0003 

0004 

RRDY 

SAMEO 

0002 

0009 

BST 

SAME! 

oooa 

0178 

- -BTR 


rtty 

86CE- 

RTYI 

06P6 - 

SAME2 



0E36 

SAME3 

0E8B 

SA^4 

0AA6 

SAMES 

OBFO 

SAVPC 

0013 

SBGH 

0008 

SEAl 

0363 

SEAIO 

0390 

SEAl I 

0392 

SEA12 

0396 

SEA2 

033G 

SEAS 

0350 

SEA4 

0366 

SEAS 

035C 

SEA6 

0371 

8EA7 

0374 

SEAS 

033S 

SEA9 

0335 

SEARCH 

0321 

SETO0 

0DA1 

SETPl 

0D9B 

SEULUX 0093 

SKULK 

0D9S 

SEWKO 

0D9F 

SEXDA 

OEOA 

SPEC 

0BA5 

STl 

0040 

•Ttii eom 

inint MM 

8TS| 

•T!l« 

i0€0 

STAa 

iiitt 

•042 

M4i 


0€39 

0004 

STQWK 

TAIIV 

«£#§ 

002f 

mm 

TWt 

mm 

0034 

f^EA 

iASA 

tDGMtl 0A2a 

'HJCIIST 

TII0f 

0001 

TRUE 

OOFF 

rmm 

00A5 

TRDNl 

ooAa 

TXBE 

0004 

TXEN 

0001 

TTCI 

06D8 

TYCO 

0619 

Twsm 

07AF 

TYPO 

07AD 

TYRl 

0629 

UBKI 


UBK2 

0058 

UBK3 

OODB 

mm 

0009 

0BK6 

OOFA 

UBK9 

0097 

UDDI 

eGB4 

UDD2 

OGAF 

mm 

0C96 

UDD4 

0C9A 

UDDFL 

0G9O 

UDDFN 

0G8C 

UPLMH 

0035 

UPLML 

0034 

US ACT 

0021 

USADA 

0020 

DSRST 

0040 

USTIME 

0A21 

VDD 

0010 

VERl 

0835 

VERIFY 0829 

VAIT 

0A5D 

¥AIT1 

0A6B 

WAIT2 

0A5F 

VDSEAR 02FF 

WRDUT 

0A36 

WRI3 

0710 

mi4 

0732 

WRI5 

0736 

^mi6 

0773 

TfRI7 

075E 

mia 

0781 

WRI9 

073B 

miTE 

0706 

TOKIA 

0E9F 

¥RK1H 

0031 

VRKIL 

0030 

VRX2H 

O02F 

T^RK2L 

002E 


002D 

WRK3L 

002C 


0EA1 

raiCB 

0033 

TfRXL 

0032 

OTl 

0B7D 


0B7B 


ASSEMBLY COMPLETE, NO EFJIORS 
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FACE i 


ACCl 1925 1929 1951# 

ACC2 1940 1944# 

ACC3 1920# 

ACC4 1941# 

ACG5 1864 1908# 

ACCES 917 1905# 

AGTM 197# 198 

ADDl 4025 4028# 

ADD2 4032 4035# 


ADD3 

4041 

4043# 










ADDBL 

974 

1999 

2316 

2469 

2486 

4019 

4026# 





ADDUT 

2806 

2822# 

3070 









ASMAX 

341# 











ASPTR 

335# 

341 

798 

3655 








AVK45 

3519 

4016# 










AXMAX. 

339# 











AXPTR 

331# 

332 

338 

339 

775 

776 

1907 

4611 

4618 



AXTBL 

4616 

4622 

4630# 









BASER 

361# 

362 










BASEL 

362# 

363 

845 

1014 

1204 

1909 

2859 

3432 

3449 

3462 

4335 

BIASa 

364# 

365 










BIASL 

365# 

366 

2280 

2315 

2889 

2980 

3010 

3015 

3124 




BUWK 806 823 2646 4059# 

BLK 2644# 

BLKAD 741 1400 3694 4081# 

BLKDA 1410 3988 4074# 4113 

BLKI 710 849 4055# 

BLKNX 4063# 4069 4077 4084 

BREAK 468# 

BRKl 1026 1049# 

BRKIO 1059# 1066 

B0K2 1030 1034# 

BRK5 1031# 1053 

BRK4 1060 1067# 1128 

BRK5 1091 1101# 

BRK6 1095# 1098 

BRK7 1100 1103# 

BRK3 1114 1 122# 

BRK9 1022 1046# 

BRKPT 918 1002# 

BRTBL 853 880# 


BRTCH 

855 

859 

881 

882 

883 

884 

885 

886 

887 

888 

8^ 

890 


891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 


903 

904 

906# 










Bxrmx 

338# 

1008 

1038 

1220 

1270 








BXPTR 

330# 

331 

337 

1008 

1015 

1038 

1205 

1220 

1270 




C45XJL 

1939 

2007 

3720 

4174# 










G0TBL 859 928# 

CHPTR 4516 4540# 

Cl 2675# 

CIl 2394# 2397 

CKl 4191 4193# 

CK2 4200 4202# 


CKASIO 

CKD 

CKDBL 

2204 

1878 

1245 

2248 

1892 

1375 

3457 

2943# 

1976 

3533 

3063 

3549 

3688 

3652# 

4173 

4177 

4184# 

GKKB 

GKM) 

C^UM 

505# 

2939# 

366# 

611 

2964 

367 

3042 

2167 

2293 

2439 

2504 

2537 

2552 


CL5 148# 

CL6 147# 

GL7 146# 

CLa 143# 181 

CLEAR 919 1839# 

CLERR 161# 

CLRITX 1844# 1852 

CMDEl 750 832# 

CUDEN 837# 3331 

CHDLV 821# 925 1048 1130 1384 1457 1854 1953 2061 2335 2568 3146 

3292 3471 3703 

cmm 810 828# 856 989 

CO 2677# 

COl 2184# 2187 

CODE 2988 4362# 439 1 4398 

CODEl 1 143 4386# 



IS IS- 1 1 ASSSrmUlE SYMBOL GBOSS BEFEBESCS, V2.9 


P4€E 2 


CI0DE2 

2990 

4395# 

4404 






COMD 

183# 

185 

767 

2219 





COMPi 

3 152^ 

3161 







C0OT3 

3131 

3141 

3147# 

3155 





C0MP4 

3110 

3157# 







C011P5 

3140# 








COMP6 

2725 

3029 

3142# 






COMPAR 

915 

1818# 







COMPX 

1820 

3136# 







conv 

2155 

2162 

2409# 






COHVl 

2412 

2416# 







COPYRI 

4681# 








CR 

384# 

2578 







CRLF 

2500 

2548 

2566 

2577# 





CSl 

2633 

2635# 







CSTS 

2673# 








CWKUL 

2323 

3380 

3383 

3520 

4179# 

, 



CWWl 

1364 

1380 

1848 

2056 

2719 

3115 

3154 

4170# 

D10US 

2811 

3073 

3080 

3083 

3090 

3218 

3226# 


D 2 eus 

2781 

2807 

2809 

3071 

3214# 




B45AD 

1102 

3918# 

4118 






D8741 

435# 

1891 

3007 






D8748 

434# 

3025 






- 

D8755 

436# 

1896 







0ADDFL 

976 

1079 

3106 

3783 

3906# 

3989 



DADDR 

3986 

3991# 

4110 






DAFLD 

1388 

2338 

3343 

3904# 





DATKY 

442# 

3465 







DAVl 

4112 

4115# 







DAV2 

4108 

4111# 







DAV3 

4097 

4100# 







DAV5 

4117 

4120# 







DC0 

400# 

4592 







DCl 

401# 

933 

4586 






DG2 

402# 

931 

934 






DCS 

403# 








DC4 

404# 

4586 

4588 






DCS 

405# 

933 

934 

3419 

4590 

4590 

4592 

4592 

DC6 

406# 








DC7 

407# 

4586 

4588 

4590 





DCS 

408# 

4586 

4568 

4588 

4590 




DC9 

409# 








DCA 

410# 

939 

4593 






DCB 

411# 

940 

1274 

3419 





DCBL 

418# 

938 

941 

942 

943 

945 

946 

947 3949 

DCC 

412# 

937 

941 

3768 

4593 

4593 



DCD 

413# 

929 

930 

942 

948 

3421 



DCDSH 

429# 

947 

1094 

3886 





DCE 

414# 

935 

946 

4584 

4593 




DC£a 

430# 

4592 







DCE9 

417# 








DCF 

415# 

944 







DCG 

416# 

945 







DCH 

422# 

935 







DCL 

421# 








DCLCC 

424# 

939 







DCLCM 

425# 

938 







DCLCO 

426# 

937 

3419 






DCLCR 

428# 

932 

936 

940 

943 

3421 

4584 

4584 

DCLCU 

427# 








DCP 

419# 








DCPC 

423# 

931 

932 

936 

944 

3421 

3771 


DCU 

428# 

929 

930 

948 





DDAFD 

3913# 








DDTFD 

1389 

3109 

3498 

3737 

3911# 

4121 



DECHX 

1272 

2667 

3956 

4513# 





OEDBL 

669 

2068 

2071 

4216# 

4228 




DELI 

2226 

2594 

2598# 






DEL2 

2604 # 

2605 







DELS 

2593# 

2596 







DELAY 

769 

2218 

2591# 






DELOl 

3867 

3871# 







DEL02 

3864 

3873# 







DELOK 

3861 

• 3875# 







DEWRK 

1363 

3382 

4213# 







4066 



ISIS- 1 1 ASSEMBLER SYMBOL CROSS REFERERCE^ V2.0 


FACE O 


DG0PT 

277# 

2111 




DGIPT 

278# 





DG2PT 

279# 





DG3PT 

280# 





DG4PT 

281# 





BG5PT 

282# 





DG6PT 

283# 





DG7PT 

284# 





DGOUT 

2662# 





DGSTG 

2669# 





DICRT 

349# 

350 

576 

1554 

2094 

DIPA^ 

1277 

3773# 




DIPCA 

3316 

3763# 




DIPTR 

348# 

349 

860 

1092 

1266 


4075 

4082 

4572 



DPMSK 

350# 

351 

2103 

3843 

4056 

DSR 

175# 





BTBLU 

2664 

3888 

4533# 



DTR 

158# 

185 




DTYPE 

3398 

3403 

3409# 



DUTDER 

2699# 

2774 




DUTDIlf 

2700# 

2774 




BXXAO 

984 

3920# 




EA 

2695# 

3244 




ECKEY 

3586 

3640# 




£112 

3348 

3350# 




EM3 

3342# 

3355 




EM7 

3372 

3384# 




EM8 

3378 

3381# 




EMCMD 

924 

1452# 




EMODE 

363# 

364 

2940 

2958 

3006 

EMSBl 

1050 

1051 

3512# 



EMSBS 

1921 

• 3344 

3493# 



EMSB4 

1126 

1127 

3354 

3367# 


EMSUB 

1455 

3340# 




ERHM 

164# 





ERREF 

2647# 





ERRFS 

834 

2649 

3746# 



ENTIO 

1565 

1567# 




ERTll 

1609 

1614 

1631# 



ENTIS 

1624 

1630 

1633# 



ENT14 

1475 

1479# 




ERT15 

1607 

1613# 




EWT2 

1540# 

1548 




ERT4 

1557 

1561# 




ERT5 

1588# 

1593 




ENT7 

1490 

1492# 




EWT8 

1694 

1718# 




ElfTBA 

1761 

1785# 




ERT9 

1507 

1511# 




ENTER 

1172 

1196 

1464# 



EBRl 

748# 





ERROR 

739# 

907 

908 

926 

1033 


3706 

3870 




ERR¥ 

744# 

3112 




ERTBL 

742 

4583# 




EXEGOT 

438# 

3825 

3860 



EXMEM 

275# 

4327 




EXTBL 

3397 

3420# 




FALSE 

379# 

380 

447 

448 


FEDTJT 

2768# 

2810 




FETl 

2715# 

2723 




FETCH 

922 

1827# 




FETDT 

1829 

2710# 




FEWRE 

1083 

1226 

1229 

1357 

1366 

FEXl 

4313 

4316# 

4451 



FEX2 

4324 

4334# 




FEXS 

4333 

4343# 




FEXBA 

2033 

4312# 




GlPBIl 

2276 

3341 

3667# 



G2PHM 

1399 

1842 

2453 

3670# 


G3PRM 

1966 

3673# 




GAl 

4613 

4626# 




GA2 

4614# 

4629 




GA3 

4619 

4621# 





2120 4060 

2093 3412 3767 3887 3907 3914 

4569 


3024 


1395 1882 1943 2340 2380 2932 


2036 2529 3031 3148 3496 4308# 


3921 


3474 



ISIS- 1 1 ASSEUBLEE STHBOL CBOSS BEFEBETTCE, V2«S 


PAGE 4 


GADDI 

3996 

3998# 




GAODR 

1017 

2866 

3285 

3695 

3980# 

GAHl 

195^ 

198 




GAI12 

196^ 

198 




GBMl 

192^ 





GBYTE 

1411 

3499 

4098# 



GDATA 

1109 

4095# 




GBEBR 

3866^ 





GDGSH 

3841^ 

3985 

4106 



GDUTD 

2716 

2750 

2805# 



GETl 

2661 

3534 

3587# 



GET2 

3335 

3552# 




GET3 

3538^ 

3544 

3547 



GETAl 

4670 

4676# 




GETAC 

1499 

4151 

4605# 



GETKB 

836 

3321 

3426 

3531# 

3818 

GEJCTY 

1398 

1454 

1841 

1965 

2275 

GGOTY 

1137 

3400# 




GOAGN 

1169# 

1181 




GOCMD 

923 

1135# 




GOSSl 

1146 

1195# 

1261 

1280 


G0SS2 

1224# 

1248 




G0SS3 

1246 

1265# 




G0SS4 

1239 

1247# 




GOSS5 

1276# 





GOSS6 

1257 

1259# 




GOSXJl 

3290 

3293# 




G0SU2 

3299 

3310# 




Gosra 

1142 

3284# 




GOTBL 

3402 

3418# 




GTKEY 

2638 

3541 

3607# 

3823 


GTPO 

967 

968 

2883 

3678 

3682 

GTPl 

3701 

3707# 




GTP2 

3575 

3579 

3581 

3583 

3689 

GTP3 

2869 

3679 

3681# 



GTP4 

3677# 

3690 




GTP5 

2867 

3699# 




GTPRM 

3669 

3672 

3675# 



GTTBL 

3724 

3732# 




GTYl 

3469 

3472# 




GTY2 

3466 

3475# 




GTY3 

3434 

3477# 




GTY4 

3438 

3479# 




GTY5 

3458 

3461# 




GTYPE 

3396 

3401 

3425# 



BEXAR 

913 

964# 




HXDUT 

2665# 





IMBOT 

368# 

1466 

1534 

4467 

4492 

iirrop 

347# 

534 

1587 



IWDBL 

2050 

4419 

4424# 



IWIl 

700 

709 

835 

2893 

4150# 

1X12 

4146# 





IXI3 

780# 

783 




INI4 

786# 

789 




IKI5 

792# 

795 




IlfIPPI 

805 

2904 

2929 

2934 

3101 

INIT 

451 

755# 




IXTBL 

807 

4591# 




INUS0 

1665# 

1717 




IWUSl 

1666# 

1744 




IXUS2 

1667# 

1784 




INUS3 

1668# 

1811 




IirWK2 

2718 

3114 

3153 

4417# 


IXXRK 

1044 

1228 

1231 

1363 

1379 

lOMAX 

337# 

3443 




lOPTR 

327# 

1672 

330 

336 

511 

561 

KBDAT 

225# 

1575 

3590 

3611 

3798 

KBBOT 

3817# 





KBIN 

2656# 





KBSl 

3804 

3806# 




KBST 

2653# 





KBSTA 

3820# 





KBSTS 

2655 

3540 

3797# 

3821 


KDBIX 

2659# 






3642 

2452 3395^ 


3692 ^ 

3704^ 3711 3721 


3144 4131^ 


1847 

2048 

2328 

2534 

3379 

4420# 

610 

632 

707 

1472 

1329 

1553 

4148 







1599 
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KEY 

KEYl 

KEY2 

KEYOK 

KOK 

LAXTBL 

LEAD 

LEAD! 

LEAD2 

LF 

MB0VE 

IIBIRT 

MBIVE 

MCHST 

MEIOU 


MEMAX 

MEMMD 

MEPG9 

MEPGl 

MEPG2 

MEPG3 

MEPG4 

MEPG5 

MEPG6 

MEFG7 

HESG 

MESGl 

MESG2 

MODE 

MONRT 

MOVE 

MSKPG 


MVl 

MV2 

MV3 

MV4 

MVS 

MVR4S 

MVREG 

NEXT 

NIBl 

IfIB2 

NIBBLE 

NOKSY 

IfOT4 

NOT5 

NT0 

NTl 

irr4 

NTS 

NTHEX 

NXl 

NXADV 

NXBRK 

NXDAV 

NZl 

NZERO 

ORIl 

0RI2 

0RI3 

0RI4 

0RI5 

0RI6 

0RI7 

ORiEirr 

ORTST 

POL IN 

P2DEF 

P2MAX 


3595^ 

3596 

3600 




3591^ 

3399 





3563^ 

3567 





3624 

3630# 





3578 

3384# 





4616 

4658# 





2246^ 

2436 

2567 




2233# 

2257 





2250 

2232# 





383# 

1678# 

2580 





499 

508# 

2733 




1674 

1743# 





204# 

1254 

1701 

1728 

1768 

1795 

311# 

383 

758 

1253 

1574 

1700 

2393 

2630 

2771 

2792 

2826 

2946 

4133 

4154 

4326 

4672 



342# 

4273 





373# 

374 





312# 

3455 





313# 

310 

587 

706 

717 

778 

3403 

3654 

3775 

4277 

4607 


314# 

315# 

2971 

3439 

4270 



316# 

317# 

2861 

3434 




318# 

319# 

2878 

4394 




743 

808 

1877 

1890 

1895 

4568# 

4573# 

4582 

4594 




4576 

4378# 





181# 

763 





334# 

333 

718 

775 

3406 


916 

1963# 





310# 

509 

582 

586 

705 

716 

1580 

1699 

1726 

1766 

1793 

2120 

2825 

2945 

2976 

3016 

3247 

3263 

3774 

3799 

4132 

4153 

4325 

4393 

2033 

2041# 





2044 

2065# 





1977 

2008 

2031# 

2058 



2057 

2059# 





2054# 

2073 





1405 

2281 

3729 

4243# 



1987 

2006 

2515 

2875 

2887 

2890 

437# 

3326 

3863 




2351 

2353 

2357 

2362# 



2335 

2358# 





2349# 

2432 

2436 




3601# 

3606 

3625 




3622 

3626# 





3623 

3628# 





519 

521# 





322 

524# 





3576 

3580# 





3577 

3582^ 





3848 

3859# 





3929 

3932# 

3964 




3984# 

3990 





1041# 

1045 





4105# 

4119 

4122 




3944 

3952# 





3945 

3948 

3933# 




2922 

2933# 





2908# 

2928 





2833 

2903# 

3159 




2891# 

2930# 

3160 





2877 

2384# 





2897 

2900# 





2711 

2852# 

2960 

3137 



2693# 

2912 

2926 




276# 

381 

703 

1577 

3747 


909 

340# 

1861#' 






2920 

1727 

3248 

2944 

1767 

3264 

4135 

1794 

3589 

4673 
2121 
36 10 

2183 

3749 

2211 

3800 

1199 

1468 

1581 

2977 

3017 

3295 


757 

777 

1198 

1252 

1467 

1573 

2182 

2210 

2392 

2629 

2770 

2791 

3294 

4606 

3404 

4671 

3588 

3609 

3633 

3748 

3011 

3057 

3123 

3126 

4247# 
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P2PTR 333# 334 340 1317 1571 1863 

P41TBL 1889 4385# 

P48TBL 1876 4387# 

P55TBL 1894 4309# 

PAGEl 448# 2689# 

PAl 194# 

FBI 191# 

PBYTE 2147# 2308 2520 2523 2526 2532 2542 2557 2560 2565 

PCIL 190# 

PCTXI 193# 

PENS 149# 

PEVEIT 150# 

PO 2681# 

POP 1056 1144 2158 2165 3093 3368 3722 4490# 

POPini 4493# 4500 

PPICT 199# 4134 

PPim) 198# 4135 

PPIPA 289# 2782 3268 

PPIPB 290# 3246 

PPIPC 301# 2769 2790 2823 3262 

PRA 1879 1883# 

PRB 1830# 

PRBYTE 367# 746 830 839 3319 3559 

PRC 1893 1897# 


PREV 

439# 

3468 

3866 


PRGl 

3068# 

3094 

3096 


PRG10 

3018# 

3023 



PRGll 

3044 

3046# 



PRG12 

3049 

3097# 



PRG13 

3054 

3065# 



PRG2 

3037 

3064 

3092 

3113# 

1SRG3 

3099# 

3151 



PRG4 

2724 

3120# 



PRG5 

3012 

3028 

3030# 

3119 

PRG6 

2965 

3027# 



PRG7 

2981# 

2986 



PRG8 

2994# 

3000 



PRG9 

3001 

3005# 




PRGKY 440# 3437 

PRMPT 824 3835# 

PRMTBL 2992 3002# 

PROG 2694# 3184 3201 

PROMS 910 1887# 

PROMER 2701# 2894 2898 

PROMP 914 1874# 

PRPRO 1883 1899 2957# 


PRSET 

1010 

1916 

2862 

2972 

3435 

3445 

4274 

4278 

4288# 

PULI 

3170# 

3203 








PUL2 

3191# 

3197 








PULPRO 

3082 

3180# 








PUSH 

1018 

1110 

1141 

2130 

2663 

3069 

3500 

3693 

4465# 

PU5RX 

4473# 

4478 








R0TMP 

486# 

543 

360 







R16X 

142# 









Rix 

143# 









R64X 

141# 

181 








RBYTE 

2295 

2299 

2303 

2319 

2321 

2331 

2430# 




READ 921 2273# 

READ2 2324 2332 2336# 

READ3 2282# 2239 2333 

READ4 2297 2334# 

READS 2320# 2330 

READ6 2318# 

REDUR 3632# 3639 

REFl 2125 2127# 

REF2 2996 2100# 

REF3 2105# 2107 

REFS 2651# 

REFSH 455 437 2088# 2652 

REGKY 441# 3453 

REGMD 374# 

RESOL 36 IS# 3627 3629 3638 

RESTOR 597 606 637 731# 

RETGO 460 1 174# 

RETGS 462 1 197# 
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RETSS 

461 

1173# 




RFR 

173# 





RCNAK 

336# 





RCPTR 

324# 

325 

327 

1513 

1528 

RGTOP 

325# 

533 

551 

620 

673 


3776 

3784 




RI 

2679# 





R103 

2206 

2209# 

2215 

2680 


RIIO 

2222# 

2227 




Rn5 

2225 

2232# 




R120 

2236# 





RRPTR 

332# 

333 

1138 



ROV 

172# 





RPAR 

171# 





RRBY 

169# 

2224 

2396 

2632 


RST 

2697# 

2892 

3241 



RTS 

162# 

183 


, 


RTTY 

2237 

2374# 

2431 

2435 


RTYl 

2376 

2379# 




RXEIT 

159# 

183 




sAimo 

458# 

727 




SAMEl 

852# 

950 




SAr!E2 

4520# 

4557 




SAME3 

4623# 

4659 




SAME4 

3413# 

3422 




SATIES 

3725# 

3734 




SAVPC 

473 

474# 




seen 

160# 





SEAl 

1365 

1382# 

1415 



SEAIO 

1371 

1422# 




SEA 11 

1352 

1427# 




SEA12 

1430# 

1436 




SEA2 

13o5# 

1381 




SEA3 

1362 

1369# 




SEA4 

1376 

1385# 




SEAS 

1377# 

1392 




SEA6 

1393# 

1419 




SEAT 

1299 

1338 

1396# 



SEAa 

1300 

1310 

1314 

1346 

1402 

SEA9 

1309 

1319 

1345 

1350# 


SEARCH 

911 

1331# 




SET0O 

846 

3463 

4283# 



SETPl 

1016 

1206 

1911 

3451 

4276# 

SEULTtX 4269# 





SEULX 

848 

2855 

2879 

3428 

3456 

SEKKO 

844 

1207 

4281# 



SEXDA 

2043 

4450# 




SPEC 

3645 

3647# 




STl 

153# 





ST13 

152# 





ST2 

151# 

181 




STA2 

3822 

3828 

3830# 



STAS 

3819 

3824# 




STOIVK 

1043 

1118 

1846 

1950 

2327 

SUDBL 

982 

1993 

2015 

2021 

2027 

SY3T1HZ 

447# 

2599 

3174 

3186 

3215 

swe 

144# 





SYND 

174# 





TO 

2698# 

2779 

2788 



TADV 

185# 

765 

2216 



TFl 

516 

518# 




TOGEA 

2901 

3100 

3143 

3243# 


TOGROH 

2780 

2789 

2913 

2927 

3079 

TOGRST 

2808 

2812 

2907 

3072 

3089 

TRDY 

168# 

2186 




TRUE 

380# 

584 

2634 

2689 

3750 

TRUTT 

619 

626 

628# 



TRURl 

630 

631# 




TXBE 

170# 

2214 




TXEN 

157# 

183 




TYCI 

2208 

2390# 

2676 

3545 

3568 

TYCO 

2180# 

26 IT 

2678 

3562 


TYCSTS 

2627# 

2674 

3543 

3566 


TYPO 

2156 

2163 

2256 

2502 

2550 

TYRI 

2202# 

2375 





1535 1679 1746 3443 3430 

734 1212 1483 1586 1600 1639 



1408# 


3460 4271# 


2717 3349 4446# 

4022# 


3888 3183 3202 3242 3243# 

3240# 

4137 


2579 2581 2616# 2682 


3303 
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UBKl 

535# 

539 





UBK2 

5o3# 

559 





UBK3 

690 

692# 





tJBK3 

459# 

723 

724 

725 



UBK6 

720 

722# 





UBK9 

595 

617# 





UDDl 

3960 

3962# 





UD02 

3951 

3957# 





UDD3 

3935 

3937# 





mm 

3939 

3941# 





UDDFL 

2671 

3909 

3923 

3930# 



tJDDFK 

3916 

3926# 





TJPLPIH 

351# 

352 





UPUIL 

352# 

353 

1007 

1915 

2014 

2969 

USACT 

286# 

762 

2181 

2212 

2391 

2628 

USABA 

285# 

770 

2189 

2233 

2398 


USRST 

163# 






USTIME 

2919 

3179 

3196 

3222# 

3225 


VDD 

2696# 

3078 

3087 




VERl 

2756 

2758# 




- 

VERIFY 

2747# 

3036 

3091 

3150 



WAIT 

1179 

1258 

3312# 




WAITl 

3327 

3329# 





WAIT2 

1278 

1390 

3158 

3317# 



VBSEAR 

912 

1292# 





WDUT 

3074 

3261# 





mx3 

2457# 

2543 





TOI4 

2483 

2491# 





VRI5 

2490 

2495# 





WRI6 

2493 

2544# 





WRIT 

2527# 

2536 





m,ia 

2535# 

2558 





WRI9 

2497 

2499# 





VRITE 

920 

2450# 





VBKIA 

1354 

1843 

1967 

2454 

2896 

4662# 

VRKIH 

35o# 

356 

4666 




WRKIL 

356# 

4172 

357 

981 

1211 

1244 

1985 

VRK2H 

357# 

358 

1301 

1968 

2824 

3105 

¥RK2L 

358# 

359 

1351 

1374 

1403 

1974 


2874 

2888 

3009 

3055 

3125 

3733 


359# 

360 

1293 

1315 

1332 


>nRIC3L 

360# 

361 

1311 

1347 

1428 

2886 

VRKA 

1969 

2326 

3495 

4667# 



WRKH 

353# 

354 

983 

2300 

2325 

2979 

imfCL 

354# 

355 

973 

980 

1071 

1975 


2SS5 

3122 

3686 

3733 

4017 

4171 

WTl 

3615# 

3616 





wr2 

3613# 

3617 






S862 3442 4176 4181 4272 


2019 

2032 

2067 

2485 

368? 

3733 

1998 

4418 

2005 

2025 

2042 

2049 

2070 

3121 

2980 

2993 

3013 

3015 

3494 

3905 

1992 

2304 

2314 

2468 

2512 

2873 

4180 

4215 

4282 

4309 

4421 

4447 


CROSS REFERENCE COMPLETE 



